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Preface 

This  thesis  is  basically  a revision  to  a digital  com- 
puter program  originally  prepared  at  the  Air  Force  Institute 
of  Technology  in  1975.  Although  minor  corrections  have  been 
made  and  additional  features  added,  the  basic  program  struc- 
ture has  remained  unchanged.  Since  the  original  program  was 
completed,  students  and  faculty  at  the  Air  Force  Institute 
of  Technology  have  used  the  program  for  analysis  of  actual 
and  theoretical  power  distribution  systems.  The  many  com- 
ments and  suggestions  received  from  the  users  have  served  as 
one  of  the  motivating  forces  for  the  revision. 

This  thesis  is  written  to  be  used  in  conjunction  with 
the  thesis  for  the  original  program.  As  only  theoretical 
development  is  given  in  this  thesis  for  the  changes  and  add- 
ed features,  both  these  should  be  studied  in  order  to  obtain 
a complete  description  of  the  theory  and  operation  of  the 
program.  The  highlight  of  this  thesis  is  the  User's  Guide, 
listed  as  Appendix  A.  The  thesis  was  purposely  written  so 
the  guide  could  be  withdrawn  and  rsed  separately.  Anyone 
only  interested  in  using  the  program  should  find  Appendix  A 
complete  and  sufficient  for  their  needs. 

I wish  to  acknowledge  all  those  who  contributed  to  the 
success  of  this  thesis  project  with  my  special  thanks  to  my 
advisor,  Capt.  Frederick  C.  Brockhurst;  my  readers,  Capt. 
Michael  A.  Aimone  and  Mr.  Charles  W.  Richard,  Jr.;  and  to 
the  original  program  author,  Capt.  Michael  C.  Heer.  The 
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comments  and  guidance  from  my  advisor  and  the  original  pro- 
gram author  were  especially  helpful  in  doing  the  background 
work  and  research.  I also  wish  to  thank  my  typist,  Mrs. 
Charlette  Kjesbo  for  her  help  in  preparing  this  thesis. 


Jesse  A.  Underwood,  Jr, 
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V 


Abstract 


‘This  paper  is  a revision  of  a digital  computer  program 
written  to  perform  a load  flow  and/or  short  circuit  analysis 
of  a power  distribution  system.  The  program  has  been  named 
Power  Distribution  System  Analysis  Program  (PDSAP).  The 
program  capacity  is  250  buses  and  500  line  elements,  with 
250  of  the  line  elements  being  transformers.  Input  routines 
accept  data  as  impedances  (ohms  or  per-unit) , or  as  descrip- 
tive information  such  as  wire  size,  length,  or  transformer 
ratings.  For  descriptive  data,  the  program  uses  pre-calcu- 
lated  approximations  to  derive  the  impedance  values  for  the 
various  line  elements  and  the  program  will  adjust  impedance 
values  due  to  neutral  conductors  in  the  system.  The  load 
flow  routine  uses  the  fast-decoupled  Newton-Raphson  technique 
and  has  the  capability  of  changing  loads  to  represent  load 
growth  within  the  system.  The  short  circuit  routine  analyzes 
systems  in  50  bus  groups,  simulating  various  types  of  faults 
for  each  bus.  Bus  voltages  and  line  currents  in  the  system 
are  calculated  for  each  simulated  fault. ^The  paper  contains 
a comprehensive  User's  Guide  which  provides  xlear  and  concise 
instructions  for  operating  the  program.  The  PDSAP  program 
is  intended  for  use  by  anyone  in  the  Air  Force  with  an  elec- 
trical engineering  background  and  concerned  with  power  dis- 
tribution. 
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I.  Introduction 


Background 

In  1975  a digital  computer  program  was  written  at  the 
Air  Force  Institute  of  Technology  that  was  capable  of  simu- 
lating power  distribution  systems  such  as  found  at  most  Air 
Force  installations  (Ref  2:xii).  The  program  was  success- 
fully designed  to  provide  the  Air  Force  with  the  capability 
to  analyze  power  distribution  systems  without  incurring  ex- 
cessive costs.  However,  the  original  version  of  the  program 
had  some  characteristics  that  limited  its  applicability  in 
certain  cases. 

Since  efficient  operation  of  power  distribution  systems 
continues  to  be  of  great  interest  and  concern,  the  need  for 
comprehensive  analysis  capability  at  minimum  cost  remains  a 
valid  goal.  During  the  past  year,  several  power  distribution 
systems  have  been  simulated  with  the  computer  program.  As  a 
result  of  certain  problems  encountered  in  attempting  to  sim- 
ulate actual  systems,  the  necessity  of  revising  the  original 
program  became  apparent. 

Problem  Statement  and  Scope 

The  problem  was  to  analyze  the  existing  digital  compu- 
ter program  and  investigate  possible  changes  and  additions 
to  improve  the  capability  of  simulating  power  distribution 
systems  as  generally  found  throughout  the  Air  Force.  The 
program  was  re-named  the  Power  Distribution  System  Analysis 
Program,  PDSAP,  and  modified  to  overcome  certain  limitations 
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that  existed  in  the  original  version.  Two  of  these  limita- 
tions were  the  adjustment  of  impedance  values  for  systems 
with  neutrals  and  the  ability  to  do  short  circuit  analysis 
on  non-radial  systems. 

The  scope  of  the  work  was  limited  to  modifications  and 
changes  of  the  existing  program  structure,  endeavoring  to  re- 
tain the  basic  logic  structure  as  used  in  the  original  Ver- 
sion of  the  program.  Additionally,  a new  User's  Guide,  Ap- 
pendix A,  was  written  to  aid  and  encourage  the  use  of  the 
program  by  Air  Force  electrical  engineering  personnel  in  re- 
solving problems  and  increasing  efficiency  of  power  distri- 
bution systems  with  as  little  expense  as  possible. 

Assumptions : The  assumptions  used  in  the  original  pro- 

gram preparation  were  also  used  in  this  modification  of  the 
program.  Basically,  these  assumptions  were  that  a one-line 
diagram  of  the  power  system  to  be  studied  would  be  available 
for  a data  source,  that  accuracies  in  load-flow  calculations 
within  ±10  percent  would  be  reasonable,  and  that  the  program 
would  be  used  on  the  CDC  CYBER  computer  system.  An  addition- 
al assumption  was  that  systems  being  simulated  in  the  program 
were  either  actual  systems  or  systems  that  were  designed  to 
accepted  standards. 

Approach:  The  existing  digital  program  was  used  as  the 

basis  for  the  new  program.  Each  area  of  the  program  was  ex- 
amined and  tested  with  additional  system  simulations  taken 
from  textbooks,  actual  systems  or  theoretical  systems.  Prob- 
lems identified  by  use  of  the  additional  systems  were  cate- 
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gorized  into  groups  for  each  routine  in  the  program.  Each 
group  of  problems  was  then  considered  in  making  the  revision 
to  the  program.  In  addition,  several  different  persons  uti- 
lized the  program  and  difficulties  encountered  in  coding  in- 
put data  provided  suggestions  to  be  incorporated  into  the 
new  User's  Guide. 

The  overall  goal  was  to  modify  the  existing  program  to 
make  it  more  versatile  and  useful  to  the  Air  Force  by  assist- 
ing electrical  engineering  personnel  in  power  distribution 
system  analysis  and  design. 

Presentation:  The  paper  is  organized  into  4 chapters 

with  appendices  which  include  a copy  of  the  revised  program 
and  the  new  User's  Guide.  Chapter  II,  "Development,"  dis- 
cusses the  changes  to  each  routine  in  the  program  with  the 
inclusion  of  the  theoretical  basis  for  information  that  has 
been  added.  Chapter  III,  "Tests  and  Results,"  details  the 
results  of  test  data  that  was  used  to  verify  the  accuracy  of 
the  program.  This  includes  comparison  with  the  test  results 
from  the  original  program,  plus  additional  tests  used  for 
new  routines  that  have  been  added.  The  final  chapter,  "Con- 
clusion and  Recommendations,"  discusses  future  changes  that 
would  enhance  the  value  of  the  program  and  limitations  that 
have  been  found  to  exist  with  the  revised  version. 

In  addition,  information  contained  in  the  four  appen- 
dices are  the  User's  Guide,  program  logic  charts,  program 
data  flow  charts  and  program  listing. 
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Introduction 

In  this  chapter,  each  of  the  major  routines  in  the  ori- 
ginal program  is  discussed  in  terms  of  changes  and  additions 
that  have  been  made.  The  major  subdivisions  of  the  chapter 
are  Control  Cards,  Line  Element  Input  Routines,  Load  Flow 
Routine,  Short  Circuit  Routine  and  User’s  Guide. 

Equations  utilized  have  been  adapted  from  the  original 
program  or  from  additional  sources  as  cited.  The  reader  is 
referred  to  the  original  program  (Ref  2:190)  for  a complete 
discussion  on  basic  program  theory  and  logic  structure.  In 
cases  where  there  was  a significant  modification  to  the  ori- 
ginal program  logic,  there  is  additional  documentation  to 
support  the  changes. 


Control  Cards 

One  of  the  significant  changes  in  the  program  was  to 
introduce  a new  standardized  format  for  all  program  control 
cards.  Previously,  control  cards  were  varied  in  both  loca- 
tion and  format  within  the  program.  The  revision  attempted 
to  standardize  all  program  control  cards  to  prevent  confu- 
sion. Additionally  the  control  cards  are  used  as  an  error 
checking  routine  to  help  prevent  erroneous  input  data.  The 
program  control  cards  all  use  a keyword  that  is  read  and  com 
pared  to  the  expected  word  before  the  program  will  continue. 
Errors  and  omission  in  the  use  of  the  keyword  will  cause  the 
program  to  halt  and  print  an  appropriate  error  message.  An- 
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other  change  to  the  program  control  cards  was  the  location 
relative  to  the  data  cards.  By  the  addition  of  one  program 
control  card,  all  control  cards  now  appear  in  front  of  the 
data  cards  for  each  routine  and  help  identify  the  data  cards 
which  follow.  This  scheme  also  facilitates  finding  control 
cards  in  a large  data  deck. 

Line  Element  Input  Routines 

Two  line  element  routines  are  in  the  PDSAP  program, 

LINEZ  and  LINDATA.  The  LINEZ  routine  utilizes  input  data  in 
ohms  or  per-unit  to  calculate  all  impedance  values  for  line 
elements.  The  LINDATA  routine  uses  line  element  information 
such  as  wire  size,  transformer  rating  and  similar  variables 
to  calculate  impedance  values. 

In  the  LINEZ  routine,  changes  were  made  to  compeasate 
for  neutral,  or  ground  wires,  that  would  affect  the  zero  se- 
quence impedance  values.  The  method  used  to  adjust  the  zero 
sequence  values  was  to  multiply  the  given  values  by  a con- 
stant, 2.7.  The  constant  value  was  taken  as  the  higher 
value  for  a representative  range  (Ref  7:21).  The  higher 
value  was  chosen  to  give  the  lowest  value  for  the  phase-to- 
ground  fault  current  that  might  be  expected  within  the  system. 
The  lowest  phase-to-ground  fault  current  is  of  primary  in- 
terest in  being  able  to  detect  this  type  of  fault  within  the 
system  relative  to  normal  load  current  values. 

Also  in  the  LINEZ  routine,  a constant  value  of  3.5  was 
used  to  create  zero  sequence  impedance  when  no  input  value 
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was  given.  Again,  the  constant  was  used  as  a representative 
value  based  on  an  average  range  (Ref  7:21).  The  higher 
value  was  chosen  for  the  same  reason  as  cited  in  the  pre- 
ceding paragraph. 

In  the  LINDATA  routine,  changes  were  made  to  accomodate 
a larger  number  of  standard  wire  sizes  for  both  aerial  con- 
ductors and  underground  cable.  A table  was  added  in  the 
User's  Guide  listing  all  the  wire  sizes  available  in  the 
program.  The  impedance  values  for  the  additional  wire  sizes 
were  based  on  interpolation  of  curves  generated  by  using  rep- 
resentative impedance  values  for  wire  sizes  used  in  the  ori- 
ginal program  (Ref  3:19-20) 

Also  in  the  LINDATA  program,  provision  was  made  to  in- 
clude tht  effects  of  grounds,  or  neutrals,  on  the  impedance 
values.  The  program  uses  the  values  given  for  the  phase  con- 
ductors, and  information  for  the  neutral  conductors,  to  de- 
termine the  proper  zero  sequence  impedance  values  for  aerial 
lines.  An  additional  section  was  added  to  the  LINDATA  rou- 
tine to  perform  this  calculation  as  detailed  in  the  follow- 
ing three  paragraphs. 

The  zero  sequence  impedance  is  adjusted  as  follows: 

The  input  line  element  card  is  coded  to  reflect  the  presence 
of  neutrals  with  information  as  to  number,  size,  and  spacing. 
The  program  uses  this  information  to  find  the  zero  sequence 
self- impedance  of  the  ground  wires,  Eq  (3),  and  the  zero  se- 
quence mutual  impedance  between  the  three-phase  circuit  as 
one  group  of  conductors  and  the  neutrals  as  the  other  con- 
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ductor  group,  Eq  (2).  The  equation  for  one  circuit  with  n 
neutrals  (Ref  8:44-45)  is  as  follows: 


ZO  - ZOA 


(ZOAG)  2 


(1) 


where  ZOA  is  the  zero  sequence  impedance  without  neutrals, 
ZOG  is  the  zero  sequence  self  impedance  of  the  neutrals,  and 
ZOAG  is  the  zero  sequence  mutual  impedance  between  the  three 
phase  circuit  as  one  group  and  the  neutrals  as  another  group 
With  this  equation,  the  zero  sequence  impedance  for  n neu- 
trals, or  ground  wires,  can  be  determined  with  relative  ac- 
curacy. 

The  addition  to  the  LINDATA  routine  was  constructed  to 
utilize  values  and  logic  from  the  original  routine  as  much 
as  possible.  The  value  of  ZOA  was  used  from  the  original 
program.  ZOAG  is  calculated  as  follows: 


ZOAG  = re  + j(xe  - 3xd)  (2) 

where  rg  * .004764(f) 

xe  = . 006985(f)  log10  Q-°.6.).P) 

xd  - .004657(f)log10De 

f ■ frequency  (hertz) 
p ■ resistivity  (meter-ohms) 

D ■ equivalent  spacing  (feet) 

The  value  for  ZOG  is  calculated  as  follows: 

5 ZOG  - 3/n(r#)  ‘ re  * j(xe  . !!•  - (3) 
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where  a ac  resistance  (ohms) 

n ■ number  of  neutrals 

r = .004764(f) 
e , 

xa  - .004657(f)log10(I^) 

and  f * frequency  (hertz) 

D = GMR  of  neutrals 
s 

Adjustment  to  the  zero  sequence  value  can  also  be  made 
when  neutrals  are  present  but  their  size  and  spacing  are  un- 
known. When  neutrals  are  present  and  only  the  number  is 
specified,  the  program  assumes  an  equivalent  spacing  from 
the  conductors  of  4 feet  and  a spacing  between  neutrals  of 
15  feet  for  more  than  one  neutral.  The  assumed  wire  size 
for  neutrals  is  105,500  CM  (Circular  Mils)  for  copper  and 
133,100  CM  for  aluminum  when  size  is  not  specified.  This 
addition  was  added  to  the  LINDATA  routine  between  statements 
230  and  300  of  the  program  listing  (Appendix  D) . 

In  both  the  LINEZ  and  LINDATA  routines,  minor  changes 
were  necessary  to  the  calculated  impedance  values  for  trans- 
formers. The  original  program  contained  impedance  values 
for  three-winding  transformers  which  could  not  be  used  with 
the  present  input  data  format.  Therefore,  all  three-winding 
transformer  impedance  values  were  blocked,  except  for  three- 
winding  phase-shifting  transformers,  and  all  references  were 
deleted  from  the  User's  Guide.  Three-winding  phase-shifter 
transformers  that  have  only  two  windings  connected  external- 
ly are  compatible  and  codes  for  these  have  been  retained. 

To  simulate  a three -winding  transformer,  a procedure  was 
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added  to  the  User's  Guide  to  use  three  two-winding  transfor- 
mers. Although  blocked  from  use,  the  values  for  all  three- 
winding  transformers  were  left  in  the  program  for  possible 
future  use. 


Load  Flow  Routine 

In  the  Load  Flow  routine,  convergence  with  certain  sys- 
tems can  be  a problem.  By  extensive  testing  with  several 
simulated  systems,  it  became  apparent  that  if  the  loads  with- 
in the  system  are  not  reasonably  well  distributed  or  the  R/X 
ratio  was  greater  than  approximately  1.5,  convergence  some- 
times is  impossible  regardless  of  the  tolerance  or  number  of 
iterations  allowed.  From  limited  analysis  of  several  systems, 
under  these  conditions  the  simulated  system  in  the  program 
appears  to  diverge.  As  a result,  the  difference  between  the 
specified  and  calculated  power  becomes  greater  with  each  ad- 
ditional iteration.  Eventually,  the  numbers  become  larger 
than  allowed  by  the  program  and  a processing  error,  or  mode 
error,  results.  To  prevent  mode  errors,  limitation  on  the 
voltage  array  elements,  V (I),  was  set  at  ±100.00  per-unit 
and  the  angle  array  elements,  ANG(I),  at  ±30ir  radians.  Also, 
a limitation  was  placed  on  Theta,  the  angle  between  the 
start  bus  and  end  bus  of  each  line,  at  ±30tt  radians.  By 
using  these  extreme  limits,  most  systems  being  simulated 
should  not  be  affected,  but  systems  that  will  not  converge 
will  not  halt  the  program  with  a mode  error. 

Another  change  to  the  Load  Flow  routine  was  to  print 
the  voltage  magnitude,  voltage  angle,  DLP  and  DLQ  values 
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when  convergence  is  not  obtained.  DLP  and  DLQ  are  the  dif- 
ferences between  the  calculated  and  specified  real  and  reac- 
tive power  respectively.  This  additional  information  can 
aid  the  user  in  being  able  to  detect  what  parts  of  the  simu- 
lated system  are  causing  the  convergence  problem.  By  using 
this  information,  the  system  configuration  can  usually  be 
altered  to  obtain  a satisfactory  solution. 

A significant  addition  to  the  Load  Flow  routine  was  the 
addition  of  the  load  change  capability.  After  the  initial 
system  has  converged  and  the  results  printed,  any  number  of 
Type  I load  buses  can  be  changed  and  the  Load  Flow  routine 
run  with  the  revised  data.  Type  1 load  buses  have  no  restric- 
tions on  voltage  limits.  Only  changes  to  Type  1 buses  are 
allowed  as  to  change  voltage  controlled  buses.  Type  2,  would 
require  recalculating  the  B"  matrix  (Ref  4:863).  After  the 
new  solution  is  obtained,  it  is  printed  with  a list  of  buses 
that  were  changed  and  the  new  load  values  for  all  buses  in 
the  system.  This  routine  is  included  in  statements  580  thru 
600  of  the  program  (Appendix  D) . 

Short  Circuit  Routine 

The  Short  Circuit  routine  as  originally  designed  had 
several  limitations.  It  was  only  capable  of  analyzing  a ra- 
dial system  and  the  process  used  to  select  various  buses  as 
subsystems  for  fault  analysis  did  not  have  repetitive  cap- 
ability. Lastly,  some  of  the  transformers  connection  codes 
were  apparently  in  error,  occasionally  causing  invalid  re- 
sults for  the  zero  sequence  impedance  values. 
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The  first  change  was  to  modify  the  BUS  and  and  BUS0  sub- 
routines to  allow  a system  of  any  configuration  to  be  satis- 
factorily simulated.  This  required  extensive  analysis  of 
these  routines  and  considerable  testing  with  various  simula- 
ted systems  to  insure  the  new  logic  was  correct.  Additional- 
ly, the  necessary  changes  were  made  to  initialize  the  arrays 
each  time  the  BUS  and  BUS0  routines  were  called,  which  cor- 
rected the  problem  of  not  being  able  to  run  successive  sub- 
system studies. 

Some  minor  changes  were  necessary  in  the  routine  where 
the  transformer  connection  codes,  or  C values,  adjust  the 
line  table  entries  to  properly  reflect  the  transformer  winding 
configuration.  The  changes  were  made  and  testing  done  with 
various  simulated  systems  to  insure  the  impedance  values  in 
the  line  tables  were  being  correctly  adjusted  (Ref  3:25). 

Another  minor  change  was  to  the  equations  used  for  the 
phase-phase-ground  faults  as  there  was  an  apparent  error  in 
the  original  program.  The  present  equations  used  in  this 
part  of  the  program  were  carefully  checked  for  accuracy  (Ref 
3:10).  Logic  changes  can  be  noted  by  comparison  of  the  log- 
ic flow  charts,  Appendix  B or  the  program  listing,  Appendix 
D,  with  the  original  program  (Ref  2:84). 

A major  addition  to  the  Short  Circuit  routine  was  the 
section  from  statements  135  to  148  of  the  program  (Appendix 
D) . Using  the  elements  of  the  ZBUS  matrix  as  developed  by 
the  BUS  routine,  the  three-phase  fault  currents  for  lines 
were  calculated  using  the  equation: 
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'line  se  kk 


(4) 


where  I is  fault  current,  in  per-unit,  on  the  line  between 
S and  E (SB  and  EB)  with  the  fault  at  bus  K.  Zg^  and  Z^  are 
the  calculated  impedance  values  between  bus  K and  bus  S or  E. 
Zj^  is  the  driving  point  impedance  value  or  diagonal  value, 
of  bus  K (Ref  1:26-27).  The  lines  are  any  existing  lines 
between  buses  listed  in  the  subsystem  being  analyzed. 

Likewise,  the  phase-ground  fault  currents  were  calcu- 
lated using  the  equation 


se 


21*  + 1° 
se  se 


(5) 


where  I*  and  I®  are  the  positive  and  zero  sequence  currents 

o C j v 

respectively  (Ref  1:78-79). 

The  positive  sequence  current,  I*  is  found  by 


se 


1 Zsk  ~ Zek 
2Zkk  + Zkk  Z+line  se 


(6) 


and,  the  zero  sequence  current  is  found  by 


I’ 


se 


Z® 

1 gk  - ek 

27+  + 7^  T® 

4kk  4kk  line  se 


(7) 


where  K is  the  bus  at  fault  and  S and  E are  the  SB  and  EB  of 
the  line  in  question. 

The  line  current  values  are  stored  in  arrays  CU  and  CUR 
for  three-phase  and  phase-ground  respectively  these  values 
are  then  printed  following  the  bus  voltages  when  the  proper 
OUT  code  is  selected. 
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User ' s Guide 

The  User's  Guide  has  been  completely  re-written.  The 
revision  was  written  with  the  concept  that  anyone  in  the  elec 
trical  engineering  field  could  follow  the  instructions  for 
utilization  of  the  program  to  include  preparation  of  the  in- 
put data  and  analysis  of  the  results. 

All  changes  and  additions  discussed  in  the  preceding 
paragraphs  have  been  incorporated  into  the  new  guide.  The 
layout  of  figures  and  tables  was  done  with  the  expectation 
that  these  might  be  extracted  and  used  separately,  therefore 
much  information  contained  in  the  writing  was  purposely  dup- 
licated in  the  tables  and  figures. 

Some  additional  information,  such  as  wire  tables  and 
current  equations,  has  been  added  to  assist  the  user  in  pre- 
paring the  data  for  input  to  the  program.  Although  the  CDC 
CYBER  computer  is  the  only  system  presently  capable  of  using 
PDSAP,  the  guide  is  designed  so  that  persons  at  any  location 
can  prepare  the  input  data  based  on  instructions  in  the  User' 
Guide.  Likewise,  the  output  products  can  be  analyzed  at  any 
location  with  the  aid  of  the  guide. 
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III.  Tests  and  Results 

Introduction 

The  overall  PDSAP  program  had  many  changes  and  additions 
during  this  revision.  Each  change  or  addition  was  implemen- 
ted and  tested  until  the  desired  accuracy  was  achieved.  Al- 
though the  results  cited  in  the  following  paragraphs  do  not 
compare  exactly  with  published  results  for  the  same  problems, 
it  is  noteworthy  that  the  degree  of  error  is  tolerable  given 
to  inaccuracies  that  are  inherent  with  such  a computer  pro- 
gram. 

Testing  of  simulated  large  systems  was  done  to  a limited 
degree.  Systems  with  up  to  167  buses  have  been  run  with  sat- 
isfactory results.  However,  due  to  time  limitations,  not  all 
functions  of  the  revised  program  have  been  completely  tested 
on  systems  larger  than  130  buses.  Changes  in  each  routine 
were  tested  and  the  results  summarized  in  the  following  para- 
graphs . 

Line  Element  Input  Routines 

In  the  LINEZ  routine,  the  significant  changes  were  to 
modify  the  zero  sequence  impedance  values  when  neutrals  were 
present  and  to  assume  a zero  sequence  impedance  value  when  no 
input  value  was  specified.  Testing  for  the  change  consisted 
of  using  an  example  problem  (Ref  7:2-34  to  2-43)  where  the 
zero  sequence  impedance  was  assumed  to  be  3.5  times  the  pos- 
itive sequence  impedance.  The  program  values  were  identical 
to  the  example  problem  values.  Likewise,  the  same  problem 
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was  modified  and  the  effect  of  neutrals  on  the  impedance 
values  was  tested.  The  results  were  as  expected;  since  a 
constant,  2.7,  is  used  when  neutrals  are  considered. 

In  the  LINDATA  routine,  the  changes  were  more  extensive 
and  designed  to  give  greater  accuracy  in  calculating  the 
zero  sequence  impedance  values.  To  test  the  routine  designed 
to  adjust  the  zero  sequence  impedance  value  for  the  affect 
of  neutrals,  a problem  was  especially  designed  to  compare 
approximate  values  from  a published  table  (Ref  3:14-15). 

The  results  of  the  comparison  are  given  in  Table  I.  The  top 
figure  is  the  published  value  and  lower  figure  the  program 
calculated  value.  The  first  two  columns  are  the  positive 
sequence  impedance  values,  the  next  two  the  zero  sequence 
values,  and  the  last  two  the  zero  sequence  values  with  neu- 
trals. It  should  be  noted  that  having  the  wide  range  of  wire 
sizes  available  necessitates  some  approximations.  However, 
as  shown  in  the  table,  the  difference  is  not  of  the  magni- 
tude that  the  program  results  would  be  in  jeopardy. 

Load  Flow  Tests 

In  the  Load  Flow  routine,  since  minor  changes  were  made 
to  prevent  the  program  from  going  into  a mode  error  condi- 
tion for  certain  systems,  some  of  the  same  problems  used  for 
testing  in  the  original  program  were  again  tested.  The  Stagg- 
and  El-Abiad  System  (Ref  5:284-299),  shown  in  Fig.  A-18,  give 
the  identical  results  as  previously  reported  (Ref  2:41). 

One  of  the  major  changes  in  the  routine  was  the  addition 
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Table  I 


Wire  Impedance  Value  Comparisons 


Wire 

Size 

(CM) 

Type 

R1 

X1  Ro  xo 

(ohms  per  mile) 

rog 

CJJ 

o 

X 

500,000 

Cu 

.1229 

.1190 

.6310 

.6332 

.4161 

.4047 

2.9600 

2.9566 

.6922 

.6761 

1.9388 

1.8711 

300,000 

ACSR 

.3421 

.3095 

.6442 

.6618 

.6278 

.5951 

3.1590 

2.9852 

1.0259 

1.0141 

2.2429 

2.0901 

250,000 

Cu 

. 2571 
.2333 

.6732 

.6761 

. 5428 
.5190 

3.0022 

2.9994 

.8189 

.7903 

1.9811 

1.9139 

105,500 

ACSR 

1.1200 

.8856 

.8422 

.8284 

1.4061 

1.1712 

3.3570 

3.1518 

1.8200 

1.6283 

2.5312 

2.3853 

83,690 

Cu 

.7651 

.6999 

.7461 

.7475 

1.0512 

.9855 

3.0751 

3.0708 

1.3881 

1.3236 

1.9811 

2.0758 

66,370 

ACSR 

1.6901 

1.4093 

.8511 

.8570 

1.8850 

1.6949 

3.3660 

3.1803 

2.3910 

2.1139 

2.5402 

2.4235 

Table  II 

Comparison  of  Bus  Voltages 

Bus  1st  Run  (Original)  2nd  Run  (Modified)  3rd  Run  (Original) 
No.  MAGfp.u. ) ANc(deg)  MAG(p.u.)  A^G(deg)  MAG(p.u.)  ANG(deg) 


1 

1.06 

0.0 

1.06 

0.0 

1.06 

0.0 

2 

1.037 

-2.6357 

1.0364 

-2.3942 

1.037 

-2.640 

3 

1.009 

-4.7990 

1.0082 

-4.3160 

1.009 

-4.807 

4 

1.008 

-5.1239 

1.0064 

-4.5358 

1.007 

-5.133 

5 

1.002 

-5.9684 

1.0012 

-5.6227 

1.002 

-5.981 
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of  the  load  change  capability.  This  was  tested  using  the 
same  system  by  changing  to  new  bus  loads  on  the  second  run 
and  then  back  to  the  original  values  on  the  third  run.  As 
noted  in  Table  II,  there  are  slight  differences  between  the 
first  and  last  result.  However,  the  differences,  probably 
introduced  by  rounding  errors,  should  not  measurably  affect 
the  overall  program  accuracy. 

Short  Circuit  Testing 

To  test  the  Short  Circuit  routine,  a comparison  was  made 
with  the  example  problem  called  the  DSPM  System  (Ref  3:40-44). 
The  DSPM  system  is  an  18  bus  radial  system  with  copper  aeri- 
al conductors  and  aluminum  underground  cable,  Fig.  A- 21. 

This  system  uses  the  LINDATA  input  routine  to  calculate  im- 
pedance values.  Table  III  shows  the  published  values  on  the 
top  line  for  fault  currents  and  the  PDSAP  program  calculated 
value  on  the  second  line.  There  was  no  zero  fault  impedance 
on  faults  for  the  underground  cable  and  20  ohms  resistance 
for  the  aerial  faults. 

Analysis  of  the  data  reveals  that  the  program  values 
are  very  close  to  the  published  values  in  all  cases.  The 
largest  error  is  approximately  2.2%  on  the  Ph-Ph-Gnd(B) 
value  for  Bus  6.  Considering  the  slight  difference  in  con- 
ductor impedance  values  calculated  by  the  program  as  shown 
in  Table  I,  the  accuracy  of  the  Short  Circuit  routine  is 
considered  very  good.  This  same  problem  was  used  for  the 
original  program  (Ref  2:43).  The  calculated  values  for  bus- 
es 1,  12,  and  13  are  very  similar.  The  others  vary  as  zero 
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Table  III 


Comparison 

of  Fault  Currents 

- DSPM  System 

Bus  No. 

3Ph-Gnd 

Ph-Grd  Ph-Ph  Ph-Ph-Gnd(B) 
(Values  in  Amperes) 

Ph-Ph-Gnd(C) 

1 

3123 

3793 

2705 

3506 

3720 

3123 

3793 

2705 

3506 

3720 

2 

2506 

2947 

2170 

3068 

2497 

2504 

2944 

2169 

3065 

2496 

3 

335 

332 

533 

1822 

1665 

336 

332 

535 

1828 

1670 

5 

294 

277 

414 

913 

799 

297 

279 

421 

928 

810 

6 

276 

254 

372 

730 

633 

280 

257 

379 

746 

643 

7 

0 

240 

0 

0 

0 

0 

244 

0 

0 

0 

10 

2244 

2579 

1944 

2756 

2083 

2243 

2576 

1943 

2753 

2082 

11 

2059 

2322 

1783 

2518 

1831 

2059 

2319 

1783 

2514 

1830 

12 

1924 

2138 

1666 

2340 

1650 

1923 

2135 

1665 

2337 

1665 

13 

1729 

1879 

1497 

2082 

1448 

1728 

1876 

1496 

2078 

1449 

16 

1972 

2202 

1707 

2403 

1721 

1971 

2199 

1707 

2399 

1721 

17 

0 

2125 

0 

0 

0 

0 

2124 

0 

0 

0 
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fault  impedance  was  used  previously  for  all  buses. 

Another  test  problem  run  with  the  Short  Circuit  routine 
was  the  Westinghouse  example  problem  (Ref  7:2-34  to  2-43)  to 
illustrate  that  a three-winding  transformer  can  be  simulated 
as  three  two-winding  transformers  and  to  verify  the  new  line 
current  routine.  Fig.  A-24,  page  115  is  a one  line  diagram 
of  the  problem.  Using  the  procedure  detailed  in  Appendix  A, 
the  three-winding  transformer  impedance  values  were  converted 
to  three  two-winding  transformers  and  input  to  the  program 
through  the  LINEZ  routine.  The  results  are  shown  in  Table 
IV.  In  this  example  problem,  the  text  values  were  altered 
to  reflect  the  positive  and  negative  sequence  values  being 
equal.  In  Table  IV,  the  text  values  are  on  tne  top  line  and 
the  program  values  on  the  following  line.  The  error  between 
the  values  is  less  than  1%  on  the  average.  As  the  three- 
winding  transformer  was  modeled  differently  in  the  program, 
no  current  magnitude  comparison  was  made  for  the  three- 
winding  transformer  buses. 

Summary 

The  additions  and  changes  to  PDSAP  appear  to  greatly 
enhance  the  value  of  the  program.  Although  extensive  test- 
ing in  all  areas  was  not  permitted  due  to  time  constraints, 
several  additional  examples  consisting  of  large  and  small 
systems  have  been  simulated  with  success.  In  some  cases, 
comparison  data  is  not  available,  but  indications  tend  to 
support  the  supposition  that  the  program  results  are  well 
within  acceptable  tolerances  for  all  functions. 
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Table  IV. 


Comparison  of  Fault  Currents  - Westinghouse  System 


Line 
SB  - EB 

3Ph-Gnd 

Current  Magnitude 

Ph-Gnd 
in  Amperes 

1 - 3 

572.5 

359.1* 

571.7 

358.7 

2 - 3 

201.8 

126.5 

202.0 

126.7 

3 - 4 

1095.6 

1124.9 

1095.1 

1125.0 

4 - 5 

793.7 

652.0 

793.6 

652.2 

5 - 8 

535.5 

335.6 

534.9 

335.5 

•All  text 
impedances 

values  estimated  on  positive  and  negative  sequence 
being  equal. 
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IV.  Conclusions  and  Recommendations 
Introduction 

The  purpose  of  this  chapter  is  to  summarize  the  signif- 
icant results  obtained  from  the  revised  PDSAP  program.  The 
chapter  is  divided  into  two  areas,  conclusions  and  recommen- 
dations. The  conclusions  will  detail  information  gained  from 
the  project  regarding  capabilities  and  limitations  of  the 
program.  Recommendations  will  detail  suggested  changes  and 
additions  that  might  be  added  at  some  future  time. 

Conclusions 

Program  Capabilities . The  goal  to  expand  the  capabil- 
ity of  the  PDSAP  program  to  simulate  certain  power  distri- 
bution systems  not  possible  with  the  original  version  was 
realized.  Systems  with  neutrals  and  non-radial  systems  can 
now  be  successfully  simulated  with  the  program.  Accuracy 
of  the  program  improves  with  the  quality  of  the  input  data, 
but  results  obtained  from  using  the  minimum  data  required 
will  often  suffice.  The  program  has  been  exercised  on  simu- 
lating several  different  distribution  systems,  large  and 
small,  with  the  largest  being  167  buses.  Comparison  of  the 
prograr  results  with  published  data  on  sample  problems  shows 
that  the  PDSAP  program  has  acceptable  accuracy  in  both  load 
flow  analysis  (Ref  2:41)  and  short  circuit  analysis  (Ref  3: 
44). 

Limitations . The  PDSAP  program  has  certain  limitations. 
As  pointed  out  by  the  original  author  (Ref  2:50),  the  pro- 
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gram  uses  a series  impedance  representation  for  the  Load 
Flow  routine  and  this  may  not  be  adequate  for  systems  with 
large  shunt  admittances.  Also,  by  experience,  it  has  been 
proven  that  some  systems  can  not  be  successfully  simulated 
by  the  Load  Flow  routine.  Changes  to  the  program  will  pre- 
vent termination  due  to  processing,  or  mode,  errors;  but  the 
output  data  will  be  of  questionable  accuracy. 

Another  limitation  with  the  Load  Flow  routine,  is  the 
program  capability  to  simulate  low  voltage  systems.  The 
program  was  primarily  designed  to  simulate  high  voltage 
(above  600  V)  systems  where  the  impedance  ratio,  X/R,  was 
less  than  approximately  0.4.  Problems  where  the  R value  was 
large  compared  to  the  X value  tended  to  cause  convergence 
problems.  This  limitation  is  not  unusual,  and  has  been  en- 
countered by  others  (Ref  4:868). 

In  the  input  data,  certain  limitations  had  to  be  placed 
on  transformer  winding  configurations.  As  a result,  three- 
winding  transformers  can  not  be  simulated  unless  used  as 
three  two-winding  transformers.  With  the  limited  number  of 
three-winding  transformers  in  use,  this  program  limitation 
should  affect  relatively  few  prospective  users. 

At  present,  the  program  has  no  capability  for  transient 
stability  analysis.  Certain  information,  such  as  generator 
reactances,  needed  to  determine  the  stability  constraints  of 
a system  would  have  to  be  added  before  this  feature  could  be 
included. 

Most  power  distribution  systems  on  Air  Force  installa- 
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tions  use  a mixture  of  single  and  three-phase  circuits.  At 
present,  there  is  no  provision  in  the  program  to  simulate 
single  phase  branch  circuits  on  a specified  phase  of  a three- 
phase  system.  This  can  cause  problems  in  adequately  simu- 
lating the  system  where  the  attachment  of  single  phase  branch 
circuits  will  noticeably  alter  the  load  balance  between 
phases . 

Recommendations 

General . PDSAP  is  an  excellent  program  for  power  dis- 
tribution system  analysis,  but  additional  capability  would 
enhance  its  usefulness  even  further.  As  noted  in  the  fore- 
going material,  several  additions  and  changes  were  made  to 
the  original  program.  Where  practical,  additions  and  changes 
were  integrated  into  the  existing  logic  structure  to  require 
as  little  additional  computer  memory  space  as  possible.  Al- 
though the  revised  program  is  apparently  working  accurately 
in  all  respects,  it  is  recommended  that  before  many  more  ad- 
ditions or  changes  are  made,  an  attempt  be  made  to  condense 
the  present  program.  For  example,  adoption  of  a dynamic  mem- 
ory allocation  procedure  would  greatly  increase  the  effi- 
ciency of  the  program.  With  this  method,  memory  space  would 
be  allocated  according  to  the  size  of  the  problem  instead  of 
using  the  maximum  for  every  problem. 

The  recommendations  cited  by  the  original  author  remain 
valid  (Ref  2:51-52)  with  the  exception  of  those  items  incor- 
porated into  this  revision.  Especially  the  need  for  trans- 
ient stability  analysis  and  a line  outage  routine.  Modifi- 
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cation  to  the  network  representation  from  a series  to  a 
model  in  the  Load  Flow  routine  would  also  be  considered  a 
desirable  change. 

One  general  recommendation  that  would  greatly  enhance 
the  value  of  the  program  is  to  add  some  method  of  specifying 
how  single  phase  branch  currents  are  connected  to  three- 
phase  systems.  At  many  installations  in  the  Air  Force,  the 
power  distribution  system  will  have  several  single  phase 
branch  circuits.  Presently,  single  phase  loads  on  branch 
circuits  have  to  be  simulated  as  three-phase  loads  or  ignored 
when  using  the  Load  Flow  routine.  This  kind  of  approxima- 
tion could  have  an  undesirable  effect  for  accurate  analysis 
of  the  system. 

To  further  enhance  the  credibility  of  the  PDSAP  program, 
extensive  testing  using  the  IEEE  Standard  Test  System  and 
then  a comparison  with  published  results  for  these  test  sys- 
tems is  recommended.  Some  of  the  logic  in  the  PDSAP  program 
is  based  on  published  articles  that  used  the  IEEE  standard 
systems  (Ref  4:864),  and  a comparison  of  the  results  from 
different  programs  would  be  noteworthy. 

Input  Routines . Often  errors  on  the  line  element  data 
cards  cause  premature  termination  of  the  program.  Develop- 
ment of  a separate  data  scan  program,  using  minimum  computer 
memory  space  and  processing  time,  is  recommended.  With  the 
use  of  a separate  input  error  checking  routine,  computer 
usage  would  be  considerably  more  efficient  than  the  present 
methods  with  error  checking  in  the  main  program. 
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In  the  LINDATA  routine,  adding  the  capability  to  use 
all  aluminum  wire  or  cable  would  be  a worthwhile  addition. 

As  more  aluminum  comes  into  use,  the  need  for  this  change 
may  become  more  urgent. 

Also  in  the  LINDATA  routine,  expanding  the  wire  tables 
to  lower  voltages  and  smaller  wire  sizes  is  recommended. 

From  data  submitted  to  date,  there  appears  a need  for  a com- 
puter program  to  analyze  power  distribution  systems  for  in- 
dividual buildings.  As  often  only  sketchy  information  is 
available  on  drawings,  use  of  the  LINDATA  routine  would  be 
very  valuable  in  these  situations. 

Load  Flow  Routine.  As  presently  configured,  the  Load 
Flow  routine  has  certain  limitations.  It  is  often  difficult 
to  satisfactorily  simulate  the  systems  with  X/R  ratios  less 
than  approximately  0.4.  Using  the  fast  decoupled  method  and 
trying  to  keep  the  program  condensed  as  much  as  possible, 
the  low  X/R  ratios  can  cause  convergence  problems  when  the 
0.4  ratio  is  exceeded.  This  type  limitation  is  most  likely 
to  be  encountered  with  low  voltage  (less  than  600  V)  systems. 
If  it  is  desired  to  extensively  utilize  the  PDSAP  on  low  vol- 
tage systems,  this  problem  would  have  to  be  overcome  since 
X/R  ratios  less  than  .4  are  very  common  at  lower  voltages. 

Short  Circuit . In  addition  to  the  line  outage  routine 
previously  recommended,  a routine  to  change  certain  short 
circuit  input  data  would  be  useful.  In  this  regard,  if  fault 
impedances  could  be  changed,  similar  to  the  load  change  cap- 
ability in  the  Load  Flow  routine,  the  time  required  for  addi- 
tional computer  runs  could  be  minimized. 
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Appendix  A.  User ' s Guide 

This  appendix  contains  a User's  Guide  for  the  PDSAP 
program.  The  guide  is  written  so  that  it  is  a complete  doc- 
ument that  can  be  withdrawn  and  used  separately  with  the 
PDSAP  program. 
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1 . Introduction 

Purpose 

The  purpose  of  the  Power  Distribution  System  Analysis 
Program,  PDSAP,  is  to  provide  analysis  capability  for  var- 
ious electrical  distribution  systems  located  on  Air  Force 
installations  and  to  provide  information  to  aid  in  the 
study  and  operation  of  these  systems.  The  program  has  been 
developed  so  that  it  can  easily  be  used  to  model  electrical 
systems  of  the  type  normally  operated  and  maintained  by  Base 
Civil  Engineering  personnel. 


Capabilities  and  Limitations 

The  PDSAP  program  is  capable  of  simulating  systems 
with  up  to  250  buses  and  500  lines.  The  program  is  format- 
ted for  the  CDC  CYBER  74  computer  system  and  is  written  in 
FORTRAN.  With  necessary  programing  changes,  it  could  be 
adapted  to  other  computer  systems  of  similar  size.  In  ad- 
dition to  the  lines,  250  transformers  can  be  represented  of 
which  50  may  be  Tap-Changing  Under  Load  (TCUL)  and  25  phase- 
shifting  transformers.  Series  reactors  and  capacitors  can 
also  be  modeled.  Up  to  50  of  the  250  buses  can  be  voltage 
controlled  buses. 

The  program  has  3 major  functions:  Calculate  line  im- 

pedance values;  calculate  power  flows  in  lines  throughout 
the  system;  and  calculate  fault  currents  for  simulated 
faults  at  selected  buses  in  the  system. 

Although  the  program  is  quite  large  and  can  simulate 
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almost  any  electrical  system  found  with  the  Air  Force,  there 
are  certain  limitations  that  are  necessary.  These  limita- 
tions are  usually  minor  and  will  not  adversely  affect  the 
overall  accuracy  of  the  analysis.  The  specific  limitations 
are  noted  at  appropriate  locations  in  the  following  chapters. 
As  presently  configured,  the  program  has  no  capability  of 
transient  stability  analysis  nor  simulating  line  outages. 

Line  outages  can  be  simulated  by  alterations  to  the  input 
data . 

The  following  chapters  of  the  guide,  with  the  excep- 
tion of  the  last  two  chapters,  are  entitled  to  represent 
the  sections  of  the  program:  Program  Control,  Line  Element 

Data,  Load  Flow  Analysis  and  Short  Circuit  Analysis.  It  is 
suggested  that  the  first  two  chapters  be  read  in  detail 
prior  to  attempting  to  use  the  program.  Each  chapter,  with 
the  exception  of  the  last  two,  discusses  input  requirements 
and  output  products  unique  to  that  section  of  the  program. 

Once  the  user  has  selected  the  desired  functions  in  the  con- 
trol section,  subsequent  sections  of  little  interest  can  be 
passed  with  a brief  overview. 

Input  Data  Requirements 

The  power  system  analysis  program  is  designed  to  devel- 
op a computer  simulation  of  a power  system  based  in  informa- 
tion usually  found  on  a complete  one- line  system  diagram. 

The  program  has  the  flexibility  of  using  this  information  in 
almost  any  form  normally  found.  Depending  upon  the  desire 
of  the  user,  some  input  data  may  be  omitted  if  not  using  all 
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the  major  functions  of  the  program.  Information  not  avail- 
able can  often  be  approximated  by  the  user.  For  some  vari- 

i 

ables,  preset  values  within  the  program  can  be  used  if  actual 
values  are  unknown.  Variables  with  the  preset  option  will 
be  so  noted  throughout  the  following  chapters.  However,  for 
the  best  results,  the  more  detailed  the  input  information, 
the  greater  the  accuracy  of  the  result. 

Input  data  for  the  program  is  entered  by  the  use  of 
the  standard  80  column  computer  card.  Coding  of  the  data  on 
standard  coding  forms  such  as  AF  Form  1531,  Punch  Card  Tran- 
script, is  highly  recommended  before  punching  of  the  data 
cards  is  attempted.  As  is  true  with  most  computer  data,  ac- 
curacy in  the  coding  is  very  important.  As  a general  rule, 
after  the  coding  forms  have  been  prepared,  a cross  check 
should  be  made  with  the  one- line  diagram  of  other  source  data 
to  insure  correctness.  Throughout  the  instructions,  the  var- 
ious input  requirements  will  be  specified  using  one  of  3 
FORTRAN  formats:  F,  I or  R.  The  F format  is  used  where  real 

numbers,  such  as  875.53,  may  be  used.  The  I format  is  used 
where  an  integer,  such  as  9,  is  required.  With  an  integer 
format,  no  decimal  points  are  allowed.  No  entry  always  im- 
plies an  integer  value  of  0.  Integers  can  be  used  in  F for- 
mats, but  care  should  be  taken  as  the  decimal  point  will  be 
inserted  automatically.  An  F5.2  format  and  an  input  value 
of  4839  will  be  used  as  48.39  for  example.  For  integers 
used  with  I or  F formats,  if  the  number  is  not  right  justi- 
fied, or  started  in  the  right  most  column,  zeros  will  be 
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added  in  the  empty  columns  to  the  right  to  complete  the  for- 
mat. For  example,  if  the  format  was  13  and  a 4 was  placed 
in  column  2,  a value  of  40,  would  be  assumed  by  the  program. 
Use  of  commas  in  large  numbers  is  not  permitted;  1,043  should 
be  1043  as  an  example. 

The  R format  is  an  alphanumeric  format  where  various 
combinations  may  be  used  as  desired.  For  example,  an  R7 
format  could  be  Alpha  2.  The  program  has  several  important 
control  cards  in  each  function.  The  cards  are  started  with 
an  R format  and  use  a key  word  such  as  PGMCON.  The  purpose 
of  the  key  word  is  to  insure  the  control  cards  are  properly 
identified  and  located  in  the  program.  The  spelling  and  lo- 
cation of  the  key  word  on  the  control  cards  is  essential  and 
it  is  imperative  that  the  data  be  entered  in  the  columns 
specified  for  proper  computation. 

Output  Data  and  Errors 

The  output  data  will  vary  in  format  and  quantity  depend- 
ing on  which  of  several  options  is  selected  by  the  user.  In 
each  of  the  following  chapters,  the  output  products  are  dis- 
cussed for  each  major  function  of  the  program. 

The  PDSAP  program  contains  a fairly  comprehensive  data 
checking  and  error  detection  routine.  Should  a problem  be 
encountered  with  the  input  data  or  in  computation,  the  pro- 
gram will  output  a message  to  identify  the  problem.  Usage 
of  the  error  messages  in  resolving  problems  is  discussed  in 
the  next  to  last  chapter  of  the  guide. 
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2 .  Control 

Introduction 

In  the  PDSAP  program  there  are  two  types  of  control 
cards,  FORTRAN  and  program.  FORTRAN  control  cards  are  used 
to  load  the  program  into  the  computer's  permanent  file  or  to 
access  the  program  if  already  on  file.  The  FORTRAN  control 
cards  should  be  prepared  by  the  person  who  will  be  submit- 
ting the  information  to  the  computer  center.  Program  con- 
trol cards  determine  the  functions  of  the  program  to  be 
used,  output  products  and  system  parameters.  Program  con- 
trol cards  should  be  prepared  by  the  person  who  is  preparing 
the  data  for  computation. 

FORTRAN  Control  Cards 

The  PDSAP  program  exists  as  a source  deck,  or  data  card 
deck,  consisting  of  some  3700  standard  computer  cards.  The 
program  must  be  loaded  into  the  computer  and  a binary  file 
created  before  data  can  be  submitted  for  processing.  To 
load  the  source  deck,  the  following  cards  are  required: 

1.  xx,T40,I080,CM164000,STCSB.  Txxxxxx , Name , Tel . Ext . 

2.  REQUEST, PDSAP, *PF. 

3.  MAP, PART. 

4.  FTN,OPT-2,B-PDSAP,R-3. 

5.  LOAD, PDSAP. 

6.  NOGO. 

7.  REWIND, PDSAP. 

8 . CATALOG , PDSAP , CY»xx , RP-xxx , ID«Txxxxxx , XR-xxxx . 
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9.  *EOR 

10.  Source  deck 

11.  *EOR 

12.  *E0F 

For  detailed  information  on  FORTRAN  cards,  consult  the 
User's  Guide  available  at  the  computer  terminal  or  see  the 
FORTRAN  Reference  Manual.  Alternative  options  are  available 
on  the  FTN  card  as  noted  in  the  preceding  references. 

The  following  FORTRAN  control  cards  are  used  when  the 
source  deck  has  been  previously  loaded,  compiled  and  perman- 
ently filed  in  the  computer. 

1.  xxx,Txxx,IOxx,CM164000,STCSB.  Txxxxxx , Name , Tel .Ext . 

2 . ATTACH ,PDSAP ,CY»xx , ID*Txxxxxx . 

3.  PDSAP. 

4.  DISPOSE, TAPE1,PR-IBB. 

5.  DISPOSE, TAPE2.PR-IBB. 

6.  *EOR 

7.  Data  Cards 

8.  *EOR 

9.  *EOF 

The  first  Txxx  is  processing  time  requested.  For  im- 
pedance calculations  and/or  short  circuit  analysis,  T50  is 
usually  sufficient.  For  load  flow  analysis  a larger  Txx, 
up  to  T200  or  more,  may  be  required  for  time  to  obtain  the 
desired  convergence  on  a large  system.  IOxx  is  the  amount 
of  input/output  time  required.  For  programs  of  50  buses  or 
less,  1020  should  be  sufficient.  Systems  with  more  buses 
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may  require  1050. 

Other  combinations  of  control  cards  are  possible.  For 
a one-time  job,  the  source  deck  and  data  deck  could  be  run 
at  the  same  time,  however  this  method  might  prove  to  be 
slightly  more  expensive  and  less  efficient.  The  source  deck 
is  not  designed  to  be  repeatedly  loaded  and  great  care  must 
be  used  not  to  get  the  deck  out  of  sequence. 

The  program  uses  two  output  files.  Tape  1 and  Tape  2. 
Information  printed  on  the  tapes  will  be  detailed  in  later 
chapters  and  illustrated  with  the  example  problems. 

Program  Control  Cards 

The  program  is  designed  to  perform  three  separate  func- 
tions as  described  in  the  introduction.  The  order  and  format 
of  the  program  control  cards  is  very  important  as  all  calcu- 
lations will  be  affected  by  these  values.  Program  control 
cards  will  be  referred  to  as  "control  cards"  throughout  the 
following  chapters  and  do  not  include  the  FORTRAN  control 
cards  previously  discussed.  The  first  three  control  cards 
title  the  system,  select  the  functions  desired  and  establish 
parameters  to  be  used  throughout  the  program.  Figure  A-l 
will  show  the  overall  program  card  deck  arrangement.  This 
figure  and  the  examples  in  the  last  chapter  should  be  used 
to  arrange  the  cards  in  proper  order. 

The  first  control  card,  which  follows  the  first  *E0R 
FORTRAN  control  card,  is  the  Title  card.  This  card  can  have 
80  alphanumeric  characters,  in  two  groups  of  40  columns  each. 
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This  card  provides  two  "title"  lines  for  the  program.  The 
first  40  columns  will  appear  on  one  line  and  the  second  40 
columns  on  the  following  line. 

The  second  control  card  is  the  Input-Output  card.  This 
card  controls  the  selection  of  the  program  function,  input 
format  to  be  used,  and  output  products  produced.  Four  vari- 
ables: CON,  INP,  OUT,  and  CHG  are  used  on  this  card.  The 
CON  variable  is  for  the  function  control,  the  INP  variable 
is  for  line  data  input  control,  the  OUT  variable  is  for  out- 
put selection,  and  the  CHG  variable  is  not  used  at  present. 
Table  A-I  details  the  code  values  for  the  Input-Output  card. 

The  third  control  card  is  the  System  Parameter  card. 

This  card  is  used  to  select  the  base  KVA,  frequency,  tempera- 
ture and  earth  resistivity.  The  program  uses  pre-selected 
values  for  any  parameter  not  specified  on  this  card.  Table 
A- II  specifies  the  variable  location  for  the  System  Param- 
eter card. 

Fig.  A-2  shows  the  location  of  the  variables  on  the 
first  three  control  cards.  Examples  of  actual  control  cards 
are  in  the  last  chapter. 
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16-11 

R6 

1 

13 

1 1 
13 

1 

13 

1 

13 

KYWD 

CON 

INP 

OUT 

CHG 

Input -Output  Control  Card 


1 - 6 7-13  14-18  19-23  24-28  29. 

' 1 1 1 1 1 

R6  F7.0  F5.0  F5.0  F5.0 

KYWD  BKVA  F T RH01 


. . .80 


System  Parameter  Control  Card 


Fig.  A- 2.  Title,  Input-Output,  and  System  Parameter  Cards 


40 


GE/EE/76-43 


Variable 
(Card  Col) 


Table  A-l 

Input-Output  Control  Card  Variables 
Definition/Use 


KYWD 

(1-6) 

CON 

(7-9) 


INP 

(10-12) 


OUT 

(13-15) 

CHG 

(16-18) 


Keyword,  use  PGMCON. 

Function  selector.  Choose  1,  2,  3,  or  5. 

l*Assemble  line  input  data  only. 

2sAssemble  line  input  data  and 
run  Load  Flow  analysis. 

3=Assemble  line  input  data  and 
run  Short  Circuit  analysis. 

4=Not  used  at  present. 

5=Assemble  line  input  data  and 
run  both  Load  Flow  and  Short 
Circuit  analysis. 

Input  selector  for  line  data.  Choose  1 or  0. 
No  entry  implies  0.  Use  1 when  input  impe- 
dances in  ohms  or  per-unit.  See  chapter  on 
line  data. 

Output  selector.  Choose  value  from  Table 
A-III  for  desired  output  lists.  No  entry  im- 
plies 0. 

Not  used  at  present,  leave  blank. 


Variable 


Table  A-II 

System  Parameter  Control  Card  Variables 
Definition/Use 


KYWD 

(1-6) 

BKVA 

(7-13) 

F 

(14-18) 

T 

(19-23) 

RH01 

(24-28) 


Keyword,  use  SYSPAR. 

Base  KVA.  Use  selected  base.  Nd  entry  im- 
plies 100,000  KVA.  Base  KVA  range:  1 to 

100,000  KVA. 

Frequency  in  hertz.  No  entry  implies  60  hz. 

Temperature  in  degrees  C.  No  entry  implies 
25  C. 

Earth  resistivity  in  meter-ohms.  No  entry 
implies  100  meter-ohm. 
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Table  A-III 

Codes  for  OUT  Variable 


Code 


Definition 


0 No  outputs  suppressed.  Assembled  line  data  prin- 
ted in  per-unit  values. 

1 No  outputs  suppressed.  Assembled  line  data  prin- 
ted in  ohms. 

2 Suppress  Tape  1 data.  This  includes  all  line  data, 
input  bus  lists,  input  short  circuit  data. 

3 Suppress  assembled  line  data  only.  Sorted  list  of 
line  data  still  printed. 

4 Suppress  sorted  line  data  (G  and  B list).  As- 
sembled line  data  printed  in  per-unit  values. 

5 Suppress  both  assembled  and  sorted  line  data. 

6 Suppress  line  flows  in  Load  Flow  function.  Output 

bus  data  printed. 

7 Suppress  reordered  bus  list,  input  bus  list  printed. 

8 Suppress  assembled  and  sorted  line  data,  reordered 

bus  list  and  input  bus  list. 

9 Suppress  transformer  output  data.  Line  list  and 

bus  list  printed. 

10  Suppress  all  outputs  except  Load  Flow  bus  summaries 

and  short  circuit  fault  summaries. 

11  Start  new  page  for  each  fault  summary. 

12  Suppress  Short  Circuit  voltage  and  line  current 
summaries . 

13  Suppress  Short  Circuit  voltage  summaries. 

14  Suppress  Short  Circuit  voltage  summaries  and  start 

new  page  for  each  fault  summary. 

15  Applies  to  LINDATA  routine  only.  Input  data  is 
printed  exactly  as  appears  on  data  cards,  program 
halts . 
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3.  Line  Element  Data 

Introduction 

There  are  two  line  element  routines  available,  LINEZ 
and  LINDATA.  The  LINEZ  routine  should  be  used  where  input 
impedance  values  are  in  per-unit,  ohms  or  a combination  of 
the  two.  The  LINDATA  routine  should  be  used  where  impedance 
values  are  unknown.  The  size,  rating,  length  and  other  vari- 
ables with  LINDATA  routine  are  used  to  calculate  the  correct 
impedances.  The  two  routines  cannot  be  used  in  the  same  sys- 
tem simulation.  Therefore,  the  data  for  the  line  elements 
should  be  reviewed  and  the  routine  selected  that  will  re- 
sult in  as  little  manual  computation  by  the  user  as  possible. 
As  noted  in  the  preceding  chapter;  on  the  Input-Output  con- 
trol card  (PGMCON)  a value  of  1 for  INP  selects  the  LINEZ 
routine  and  a 0 selects  LINDATA. 

Both  the  LINEZ  and  LINDATA  routines  use  several  vari- 
ables to  compute  the  line  impedance  values  which  are  then 
used  by  other  functions  of  the  program.  Each  data  card  is 
used  to  represent  a line  element.  Line  elements  are  aerial 
lines,  underground  cables,  transformers,  series  capacitors, 
and  series  reactors.  All  line  elements  must  be  connected 
between  two  buses.  Bus  numbers  must  start  with  1 and  run  con- 
secutively until  all  buses  are  numbered.  The  location  of  the 
bus  numbers  is  not  significant,  but  some  logical  order  will 
facilitate  cross  checking  for  errors  and  omissions.  Bus  lo- 
cations should  be  chosen  at  points  of  interest  and  where  line 
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elements  change.  Locations  would  normally  be  ends  of  lines, 
both  sides  of  transformers,  both  sides  of  switches,  and 
where  loads  are  connected. 

The  line  element  data  cards  can  be  assembled  in  any  or- 
der except  the  last  data  card  which  represents  the  ground  or 
reference.  This  card  should  have  a start  bus  (SB)  and  end 
bus  (EB)  of  0.  No  other  entry  is  used  on  this  card. 

Neutral  or  ground  wires  in  close  proximity  to  phase  con- 
ductors will  have  an  effect  on  zero  sequence  impedance  values. 
The  presence  of  neutrals  can  be  coded  in  both  routines  when 
simulating  aerial  conductors.  The  routines  adjust  the  zero 
sequence  impedance  values  to  account  for  the  presence  of  the 
neutrals . 

Both  routines  use  the  same  codes  for  line  element  iden- 
tifiers (ID)  and  transformer  windings  (C) . Codes  for  these 
variables  are  listed  in  Tables  A-IV  and  A-V. 


Table  A-IV 
ID  Code  Values 


ID  Code 

Line  Element  Description 

1 

Copper,  aerial 

2 

ACSR,  aerial 

3 

Underground  cable, 

aluminum  conductor 

4 

Underground  cable, 

copper  conductor 

5 

Transformer,  fixed 

up 

6 

Transformer,  auto 

7 

Transformer,  TCUL 

8 

Transformer,  Phase 

-shifter 

9 

Series  Capacitor 

10 

Series  Reactor 
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Table  A-V 

Transformer  Connection  Codes 


Type 

Code 

Winding  Description  (SB/EB) 

Fixed  or 
TCUL 

1 

Y/Y,  Y/Y*  , jY/Y , Y/A , A/Y 

2 

A/A 

3 

Y*/Y* 

4 

<Y/A 

5 

A/Y* 

Auto 

1 

Y/Y  (Not  3-ph  core  type) 

2 

Y*/Y*  (Not  3-ph  core  type) 

3 

Y*/Y*  (3-ph  core  type) 

4 

Y*/¥»  two  series  windings  (Not 
3-ph  core  type) 

5 

Y*/Y*  two  series  windings  (3-ph 
core  type) 

Phase-Shifter 

1 

Series;  Y/Y  auto  exciting  (grounded 
or  ungrounded  neutral) . 

2 

Series;  Y/Y  auto  exciting  (grounded 
neutral,  3-ph  core  type). 

3 

Series;  Y/Y  auto  exciting  (grounded 
neutral/tertiary) . 

4 

Series;  Y/star  exciting  (grounded 
or  ungrounded  neutral). 

5 

Series;  Y/star  exciting  (grounded 
neutral,  3-ph  core  type). 

6 

Series;  Y/star  exciting  (grounded 
neutral,  tertiary). 

7 

Excited  series. 

8 

Star  series;  A/star  exciting 
(grounded  or  ungrounded  neutral) . 
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LINEZ  Routine 

The  LINEZ  input  routine,  INP=1,  is  capable  of  accepting 
only  values  in  per-unit  or  ohms  for  all  line  elements. 

Values  for  both  positive  and  zero  sequence , operating  voltage , 
and  bus  connections  are  entered  on  each  line  element  data 
card.  If  the  zero  sequence  impedance  is  not  specified,  the 
program  assumes  a value  for  lines  based  on  3.5  times  the 
positive  sequence  impedance  for  lines  with  neutrals.  For 
transformers,  capacitors,  and  reactors,  the  zero  sequence 
impedance  value  is  set  equal  to  the  positive  sequence  impe- 
dance value  unless  specified  otherwise  on  the  data  card. 

The  format  for  the  LINEZ  line  element  data  card  is 
shown  in  Fig.  A-3.  The  variables  and  the  definitions  for 
the  LINEZ  data  card  are  given  in  Table  A-VI . 

L INDATA  Routine 

The  LINDATA  routine,  INP*0,  is  designed  to  accept  line 
element  information  that  may  be  available  when  the  impedance 
values  are  unknown.  The  conductor  size,  length,  spacing  and 
other  information  is  used  to  calculate  line  impedances. 

Table  A-VI I shows  the  various  sizes  and  strands  of  conductors 
that  can  be  simulated  in  the  program.  The  routine  has  the 
capability  to  use  different  size  wire  for  phase  conductors 
than  that  used  for  the  neutral.  If  data  on  neutral  conduc- 
tors is  not  available,  an  approximation  is  made  of  133,100 
CM  for  ACSR  neutrals  and  105,500  CM  for  copper  neutrals. 

KVA  ratings,  voltages,  and  winding  information  are  used  to 
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SB  EB  VP  ID  PH  L ReZZ  ImZZ  ReZZO  ImZZO 


PHI  TPI  TMNN  TMXX  C IUNIT  ReZN  ImZN  CH 


Fig.  A- 3.  Line  Element  Card  Format  for  LINEZ  Routine 


Table  A-VI 

Line  Element  Variables  for  LINEZ  Routine 


Variable 
(Card  Column) 


Definition/Use 


Start  bus;  bus  number  to  which  one  end  of  line 
element  is  connected.  Also  called  "from  bus." 
Must  be  tapping  end  of  a TCUL  element. 


End  bus;  bus  number  of  other  end  of  line  ele 
ment.  Also  called  "to  bus." 


For  conductors,  capacitors,  and  reactors:  Vol- 

tage (KV)  line-to-line  if  3-ph  or  line  to-neu- 
tral  if  1-ph. 

For  Transformers:  Voltage  (KV)  high  side  rating 

Line  element  identifier;  Choose  code  from  Table 
A-  IV. 


Phase.  Choose  1 or  3 


Table  A-VI  (Cont'd) 


Variable 

(Card  Column)  Definition/Use 


L 

(15-20) 

ZZ 

(21-26) 

(27-32) 

ZZO 

(33-38) 

(39-44) 


PHI 

(45-53) 

TPI 

(49-53) 


TMNN 

(54-58) 


TMXX 

(59-63) 


C 

(64-65) 


IUNIT 

(66-67) 


ZN 

(68-73) 

(74-78) 


CH 

(79) 


For  conductors:  Length  in  feet. 

For  other  elements:  KVA  rating  in  KVA. 

Positive  sequence  impedance.  Complex,  enter 
as  two  numbers  in  ohms  or  per-unit  values. 

Zero  sequence  impedance.  Complex,  enter  as 
two  numbers.  If  unknown,  leave  blank;  program 
will  assume  values  based  on  positive  sequence 
values . 

Phase  angle  (degrees).  For  phase-shifter  only. 
All  other  elements:  Leave  blank. 

For  conductors:  Enter  1 for  zero  sequence  ad- 

justment for  ground  or  neutrals,  otherwise  skip. 
For  transformers:  Initial  tap  setting  in  per 

unit.  No  entry  implies  1.0. 

For  other  elements:  leave  blank. 

For  TCUL  transformer,  minimum  tap  limit  in  per 
unit.  No  entry  implies  .9. 

For  other  elements:  Leave  blank. 

For  TCUL  transformer,  maximum  tap  limit  in  per 
unit.  No  entry  implies  1.1. 

For  other  elements:  Leave  blank. 

For  conductors,  capacitors  and  reactors: 

Leave  blank. 

For  transformers:  Choose  connection  code  from 

Table  A-V. 

Impedance  units  identifier.  For  all  elements: 
Blank  or  0 for  impedance  values  in  ohms.  1 
implies  per-unit  on  system  base  KVA. 

For  transformers  capacitors  and  reactors:  2 
implies  per-unit  on  element  base  KVA. 

For  conductors,  capacitors  and  reactors: 

Leave  blank. 

For  transformers,  neutral  impedance  if  other 
than  zero.  Use  ohms  or  per-unit  values. 

Not  used  presently,  leave  blank. 
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Table  A-VII 
Wire  Sizes 


Circular  Mils (CM)  A.W.G. 


Comments 


1,000,000 

- 

If  UG, 

3-ph  only 

750,000 

- 

If  UG, 

3-ph  only 

500,000 

- 

If  UG, 

3-ph  only 

350,000 

- 

300,000 

- 

2S0 ,000 

- 

211,600 

4/0 

167,800 

3/0 

133,100 

2/0 

105,500 

1/0 

83,690 

1 

66,370 

2 

41,740 

4 

26,250 

6 

16,510 

8 

Number 

of  Strands: 

Copper:  37,19,12,7,3 

,l,or  0 

AC SR  (Aluminum  part) : 

54,30,26 

,6, or  0 
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i r i i i i i it 
13  13  F5.0  12  F6.0  12  II  F7.0  12  F4.0  F6.0 

SB  EB  VP  ID  L C PH  S STR  DM  SG 


F5.0  F5.0  F5.0  F5.0  F5.0  II  F6.0  F6.0  II 

STRG  DMCG  DMGG  ReZN  ImZN  NG  ReZ  ImZ  CH 

NOTE:  For  elements  other  than  conductors,  use  Fig.  A- 5. 


Fig.  A-4.  Conductor  Data  Card  Format  for  LINDATA  Routine 


F5.0 

FS.O 

FS.O 

F5.0 

FS.O 

11 

F6.0 

F6.0 

11 

TMNN 

TMXX 

TP  I 

ReZN 

ImZN 

TC 

ReZ 

ImZ 

CH 

NOTE:  For  conductors  use  Fig.  A-4. 


Fig.  A- 5.  Data  Card  Format  for  LINDATA  Routine 
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Table  A-VIII 

Line  Element  Variables  for  LINDATA  Routine 


Variabl 2 
(Card  Column) 


SB 

(1-3) 


EB 

(4-6) 

VP 

(7-11) 


ID 

(12-13) 

L 

(14-19) 

C 

(20-21) 


Definition/Use 


Start  bus:  Bus  number  to  which  one  end  of 

line  element  is  connected.  Also  called 
"from  bus."  Must  be  taping  end  of  a TCUL 
element . 

End  bus:  Bus  number  of  other  end  of  line 

element.  Also  called  "to  bus." 

For  conductors:  Voltage  (KV)  line-to-line 

if  3 ph  or  line-to-neutral  if  1 ph. 

For  transformers:  Voltage  (KV)  high  side. 

Line  element  identifier:  Choose  code  from 

Table  A-IV. 

For  conductors:  Length  in  feet. 

For  other  elements:  Leave  blank. 

Connection  code.  For  conductors:  Leave 

blank. 

For  transformers:  Choose  code  from  Table 

A-V. 


PH 

(22) 

S 

(23-29) 


STR 

(30-31) 


DM  or 
PHI 
(32-3C 


SG  or 
VS 

(36-41) 


Phase.  Choose  1 or  3. 

For  conductors:  Diameter  in  circular  mils 

(CM).  See  Table  A-VII  for  choices  on  wire 
sizes . 

For  transformers  and  others:  Rating  in  KVA. 

For  conductors:  Number  of  strands.  See 

Table  A-VII  for  choices.  If  unknown,  leave 
blank. 

For  other  elements:  Leave  blank. 

For  conductors:  Equivalent  spacing  in  feet. 

If  unknown,  leave  blank  and  value  assumed  as 
4.69  for  25  KV  or  less,  12.57  for  above  25 
KV. 

For  phase- shifter  transformers:  Phase  angle. 

For  other  elements:  Leave  blank. 

For  conductors:  Size  of  neutral  in  circu- 

lar mils.  If  none  or  unknown,  leave  blank. 
For  transformers:  Secondary  voltage  in  KV. 

For  other  elements:  Leave  blank. 
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Table  A-VIII  (Cont'd) 

Variable 
(Card  Column) 

Definition/Use 

STRG  or 
TMNN 
(42-46) 

For  conductors:  Number  of  strands  in  neu- 

tral, if  known.  If  unknown  or  none,  leave 
blank. 

For  transformers:  Minimum  tap  setting  for 

TCUL  in  per-unit.  If  blank,  assumes  .9. 
For  other  elements:  Leave  blank. 

DMCG  or 
TMXX 
(47-51) 

For  conductors:  Equivalent  spacing  between 

conductors  and  neutral  (ft).  If  unknown 
or  none,  leave  blank. 

For  transformers:  Maximum  tap  setting  for 

TCUL  in  per-unit.  If  blank,  assumes  1.1. 
For  other  elements:  Leave  blank. 

DMGG  or 
TP  I 

(52-56) 

For  conductors:  Equivalent  spacing  between 

neutrals  if  more  than  one.  If  unknown  or 
none,  leave  blank. 

For  transformers:  Initial  tap  setting  in 

per-unit.  If  blank,  assumes  1.0. 

For  other  elements:  Leave  blank. 

ZN 

(57-61) 

(62-66) 

For  conductors:  Leave  blank. 

For  transformers:  Neutral  impedance,  if 

other  than  zero,  in  ohms.  Enter  as  real 
and  imaginary. 

For  other  elements:  Leave  blank. 

NG  or 
TC 
(67) 

For  conductors:  Number  of  neutral  of  ground 

wires . 

For  other  elements:  Positive  sequence  im- 

pedance selector.  0 will  use  program  calcu- 
lated value.  1 will  use  value  specified  by 
Z variable  as  ohms.  2 will  use  value  spe- 
cified by  Z variable  as  per-unit  on  base 
KVA  of  line  element. 

Z 

(68-73) 

(74-79) 

For  conductors:  Leave  blank. 

For  transformers:  Positive  sequence  impe- 

dance in  ohms  or  per-unit.  Complex  value, 
enter  as  two  numbers  in  ohms  ot  per-unit. 
If  unknown,  insure  TC  variable  is  0. 

CH 

(80) 

Not  used  presently,  leave  blank. 
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determine  the  impedance  values  for  transformers  and  other 
elements . 

Two  formats  are  used  for  the  LINDATA  routine,  one  for 
conductors  and  the  other  for  transformers,  series  capaci- 
tors and  series  reactors.  Zero  sequence  impedance  values 
are  calculated  in  the  routine  based  on  the  positive  sequence 
values.  Fig.  A- 4 shows  the  format  for  the  conductors  and 
Fig.  A- 5 shows  the  format  for  other  elements.  Variables 
for  both  formats  are  defined  in  Table  A-VIII. 


Limitations 

Both  LINEZ  and  LINDATA  routines  have  certain  limitations, 
Due  to  the  algorithm  used  with  the  Load  Flow  routine,  input 
line  elements  usually  cannot  have  an  X/R  ratio  less  than  .4, 
but  this  restriction  can  be  waivered  if  only  using  the  Short 
Circuit  routine.  With  the  LINEZ  routine,  the  data  can  be 
checked  before  being  entered  on  the  data  cards.  With  the 
LINDATA  routine  it  may  be  necessary  to  run  the  program, 
using  C0N«1  on  the  Input-Output  control  card,  to  calculate 
impedance  values  in  order  to  determine  the  X/R  ratio. 

The  line  element  routines  do  not  have  the  capability  to 
simulate  a three-winding  transformer  except  those  used  as 
phase  shifting  transformers  can  be  simulated  if  only  two 
windings  are  connected  to  the  system.  The  problem  of  simu- 
lating a three-winding  transformer  can  be  resolved  by  model- 
ing the  transformer  as  three  separate  two-winding  transfor- 
mers as  described  by  the  following  procedure: 
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1.  Identify  the  impedance  of  the  three  wind- 
ings; Hi  (ZH)  , Med  (ZM) , and  Lo  (ZL) . Note  winding 
information  such  as  Hi/Med  is  (Wye-Delta). 

2.  Using  the  impedance  values  given  for  Zhl, 
Zmh,  and  Zml,  calculate  vales  for  ZH,  ZM,  and  ZL 
as  shown.  Zhl,  Zml,  Zmh  are  the  given  impedance 
values  for  Hi/Lo,  Med/Lo  and  Med/Hi  windings  re- 
spectively. 


ZH  = 

Zhl+Zmh- Zml 
2 

(8) 

ZL  « 

Zml+Zhl-Zmh 
2 

(9) 

ZM  « 

Zmh+Zml-Zhl 

T~ 

(10) 

3.  Use  a wye  configuration  for  the  three 
impedance  values,  ZH,  ZL,  and  ZM  as  shown  in  Fig. 
A-6.  Use  bus  numbers,  such  as  1,  2 and  3 for  each 
end  of  the  wye  and  use  N for  the  common  middle 
point. 


4.  Convert  the  wye  configuration  to  an  equil 
valent  delta  by  any  standard  method  (Ref  6:155-156 
as  follows: 


Z - (ZH) (ZM)+ (ZM^ (ZL)+ (ZH) (ZL) 


z - (ZHJIQQ  ♦ CzhJ.Czl? 


Z - (ZH)(ZM)  + (ZM^ZL)  + (ZH)(ZL) 


(ID 

(12) 

(13) 


5.  Using  the  winding  characteristics  asso- 


54 


GE/EE/76-43 


« 


Fig.  A-6  Delta  Equivalent  Three-Winding  Transformer 

ciated  with  each  bus  number,  such  as  Hi (1) (wye)  or 
Med(2) (delta) , assign  appropriate  winding  character- 
istics to  each  bus  as  shown  in  Fig.  A-6.  Winding 
characteristics  should  be  chosen  from  the  given 
information  for  the  transformer. 

6.  Code  the  input  data  for  the  program  using 
the  equivalent  delta  configuration  as  three  two- 
winding  transformers  with  connection  codes  as  ap- 
propriate. Use  the  highest  voltage  rating  of  the 
three-winding  transformer  as  the  high  side  voltage 
on  the  three  two-winding  transformers. 

7.  Unless  other  information  is  given,  let  the 
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LINEZ  or  LINDATA  routine  calculate  the  zero  sequence 
impedance  values. 


t 


Output 

Output  from  both  the  LINEZ  and  LINDATA  routines  is  sim- 
ilar. The  first  item  is  the  program  title  and  printout  desig- 
nation, Tape  1 or  Tape  2.  The  second  item  is  the  system 
title  chosen  by  the  user.  The  third  item  is  the  program 
control  constants  as  chosen  on  the  Input-Output  control 
card.  A -0  indicates  no  entry  was  made  and  is  the  same  as 
0.  The  fourth  item  is  the  program  parameter  constants  as 
coded  on  the  System  Parameter  control  card.  These  four 
items  appear  on  both  Tape  1 and  Tape  2 printouts. 

Next,  on  the  Tape  1 printout  only,  appears  the  LINEZ 
or  LINDATA  header  format  stating  the  assembled  line  element 
data  is  in  per-unit  or  ohms.  The  entries  in  this  listing 
are  in  the  same  order  as  the  line  data  input  cards.  Fol- 
lowing the  assembled  line  input  data  is  the  sorted  line  data 
list.  The  list  is  sorted  by  ascending  line  numbers  and  lists 
the  start  and  end  bus,  the  G (Conductance)  and  B (Suspectance) 
values,  plus  the  zero  sequence  impedance  values.  If  either 
the  Load  Flow  or  the  Short  Circuit  routine  is  utilized, 
other  entries  appear  between  the  assembled  line  list  and  the 
sorted  line  list. 

The  output  data  from  the  LINEZ  and  LINDATA  routines  is 
controlled  by  the  OUT  variable  on  the  Input-Output  control 
card.  A review  of  Table  A- III  indicates  output  content  is 
on  Tape  1 and  Tape  2 when  a value  of  OUT  other  than  0 is 
selected. 
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4 . Load  Flow  Analysis 

Introduction 

The  Load  Flow  function  of  the  program  is  used  to  calcu- 
late power  flow  throughout  the  system.  Inputs  required,  in 
addition  to  the  line  element  data,  are  the  loads  and  genera- 
ting sources  in  the  system.  Output  is  the  power  distribu- 
tion throughout  the  system  which  shows  the  load  requirements 
at  each  bus,  line  flows,  and  the  amount  of  power  imbalance 
that  is  accounted  for  on  the  slack  bus. 

Inputs 

The  first  card  in  the  Load  Flow  function  is  the  Load 
Flow  control  card,  LDFLOW,  which  is  used  to  select  the  tol- 
erance desired  for  the  comparison  between  the  calculated  and 
specified  power  requirements  on  each  bus.  The  tolerances, 
expressed  in  per-unit,  are  labeled  PTOL  and  QTOL,  for  real 
and  reactive  power.  Accuracies  to  about  1 KVA  are  possible. 
The  tolerances  should  be  consistent  with  the  magnitude  of 
the  loads  on  the  system.  On  the  same  card,  the  number  of 
iterations  that  will  be  permitted  to  reach  the  selected  tol- 
erance is  also  specified  as  ITR1  and  ITR2.  ITR1  is  the  it- 
eration counter  for  PTOL  and  ITR2  the  counter  for  QTOL. 

One  other  item,  NLC,  is  also  specified  on  the  LDFLOW  control 
card.  This  variable  is  used  to  select  the  load  change  rou- 
tine. Any  number,  other  than  zero,  will  select  the  number  of 
times  the  basic  program  is  to  be  modified  by  load  changes 
within  the  system  and  a new  load  flow  result  calculated. 
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The  format  and  variable  description  for  the  Load  Flow 
control  card  are  found  in  Table  A-IX  and  Fig.  A-7. 

1-6  7-10  11-14  15-21  22-28  29-31  80 

/ I I I I I 

R6  14  14  F7.5  F7.5  13 

KYWD  ITR1  ITR2  PTOL  QTOL  NLC 


Fig.  A-7.  Load  Flow  Control  Card 
Table  A-IX 

Load  Flow  Control  Card  Variables 
(d?dlColumn)  Description/Use 


KYWD 

(1-6) 


Key  word.  Always  use  LDFLOW. 


ITR1  Maximum  number  of  iterations  to  reach  speci- 

(7-10)  fied  tolerance  in  PTOL.  Choose  number  be- 

tween 1 and  9999. 

ITR2  Maximum  number  of  iterations  to  reach  specie 

(11-14)  fied  tolerance  in  QTOL,  Choose  number  be- 

tween 1 and  9999. 


PTOL  Tolerance,  difference  between  P specified 

(15-21)  and  P calculated  in  per-unit.  Usually  be- 

tween .1  and  .0001. 

QTOL  Tolerance,  difference  between  Q specified 

(22-28)  and  Q calculated  in  per-unit.  Usually  be- 

tween .1  and  .0001. 

NLC  Number  of  times  load  buses  will  be  changed 

(29-31)  and  load  flows  re-calculated.  Choose  num- 

. ber  between  0 and  999. 
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Following  the  Load  Flow  control  card,  LDFLOW,  are  the 
bus  data  cards.  One  bus  data  card  is  required  for  each  bus. 
If  the  bus  does  not  have  a load  or  a source,  the  P and  Q 
values  may  be  left  blank,  but  the  bus  number  and  type  are 
required.  If  more  than  one  load  is  located  at  a bus,  the 
loads  must  be  combined  as  only  one  bus  card  is  permitted  for 
each  bus.  Power  flowing  into  a bus,  such  as  from  a genera- 
tor, is  considered  positive.  Power  flowing  out  of  a bus, 
such  as  to  a load,  is  listed  as  negative  values.  The  for- 
mat and  definition  of  variables  used  for  the  Load  Flow  Bus 
Data  cards  are  shown  in  Fig.  A-8  and  Table  A-X. 

Three  types  of  buses  are  used  as  shown  in  Table  A-X. 

The  most  numerous  are  the  load  buses,  or  Type  1 buses.  Type 
2 buses,  voltage  controlled  buses,  are  normally  for  sources 
where  the  voltage  should  be  held  constant.  The  program  as- 
sumes that  whatever  reactive  power  required  to  do  this  will 
be  available  as  long  as  it  does  not  exceed  the  QMIN  or  QMAX 
limits  selected.  If  the  limits  are  exceeded,  the  voltage 
will  be  adjusted  and  a message  printed  with  the  results 
noting  the  voltage  has  not  been  held  constant.  The  slack 
bus,  Type  3,  is  to  absorb  all  overages  and  shortages  through 
out  the  system.  There  must  be  one,  and  only  one,  slack  bus 
for  each  system.  The  voltage  must  be  specified  for  the 
slack  bus  but  not  the  P and  Q values. 

The  load  change  feature  changes  any  number  of  loads  in 
the  simulated  system  and  then  calculates  a revised  load  flow 
system  summary.  The  same  PTOL,  QTOL,  ITR1,  and  ITR2  will  be 
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Fig.  A-8.  Load  Flow  Bus  Card  Format 


Table  A-X 


Load  Flow  Bus  Card  Variables 


Variable 
(Card  Column) 


Description/Use 


Bus  type.  Choose  1,2, or  3. 

1 Load  bus.  Specify  P and  Q. 

2 Voltage  Control  Bus.  Specify  P and  V. 

3 Slack  Bus.  Specify  V and  ANG. 

(Only  one  type  3 bus  allowed  and  required) 


Bus  number.  Use  consecutive  numbers  between 
1 and  250,  same  as  used  for  lines. 


Name  of  bus,  up  to  10  numbers  and/or  letters. 
May  leave  blank  if  desired. 

Bus  voltage  magnitude,  in  per-unit.  No  entry 
implies  1.0. 

Bus  voltage  angle,  in  degrees.  No  entry  im- 
plies 0 degrees. 

Bus  real  power  specified  in  KVA.  Injected 
power  is  positive,  loads  are  negative. 

Bus  reactive  power  specified  in  KVAR.  In- 
jected is  positive,  loads  are  negative. 

Minimum  reactive  power  limit.  Specified  for 
type  2 buses  in  KVAR.  Other  types,  0. 

Maximum  reactive  power  limit.  Specified  for 
type  2 buses  in  KVAR.  Other  types,  0 or  leave 


BUSNME 

(6-15) 


blank 
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used.  The  line  data  used  is  also  the  same  as  for  the  initial 


calculation.  To  vary  the  loads,  select  the  value  of  NLC  on 
the  LDFLOW  control  card  to  indicate  how  many  times  the  sys- 
tem will  be  modified  and  re-calculated.  Next,  following  the 
last  bus  data  card,  add  the  load  change  control  card,  BUSCHG 
with  a value  for  NC  representing  the  number  of  buses  to  be 
modified  w this  change.  Following  the  load  change  con- 
trol crrd,  .?<id  the  bus  cards  as  changed.  The  bus  cards  must 
only  be  Type  1 and  use  the  same  bus  number  as  the  bus  to  be 
replace  . Fig.  A-9  illustrates  the  load  change  control  card 
BUSCHG.  Bus  data  cards  should  be  in  format  as  shown  in  Fig. 
A-8.  If  more  than  one  change  is  selected,  NLC  greater  than 
1,  additional  BUSCHG  control  cards  and  bus  data  cards  are 


added  as  required. 

If  several  load  changes  are  used  or  the  system  is  very 
large,  an  increase  in  the  computation  time,  TXXX,  as  allowed 
by  the  FORTRAN  Control  card  may  be  required. 


KYWD  NC 


Variable 
(Card  Column 


Definition/Use 


KYWD 

(1-6) 


Key  word,  use  BUSCHG 


Number  of  buses  to  be  changed.  Fol- 
low with  same  number  of  bus  data  cards 


Fig.  A-9.  Load  Change  Control  Card 
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Limitations 

As  noted  previously,  only  one  bus  card  is  allowed  per 
bus.  Therefore,  if  both  loads  and  sources  are  present  at 
the  same  bus,  only  the  net  difference  can  be  entered  on  the 
bus  card. 

The  program  uses  an  iterative  routine  to  balance  the 
system  between  calculated  and  specified  power  at  each  bus. 

If  the  number  of  buses  is  large,  a larger  time  on  the  first 
FORTRAN  control  card,  TXXX,  may  be  required  for  the  desired 
tolerance . 

Convergence  to  any  selected  tolerance  is  usually  obtain- 
able unless  the  X/R  ratio  is  .4  or  less.  When  the  X/R  ratio 
approaches  .4,  convergence  becomes  more  difficult  and  some- 
times impossible  regardless  of  the  tolerance  selected.  When 
the  specified  tolerance  is  not  reached  with  the  number  of  it- 
erations allowed,  the  output  will  not  show  line  flows,  but 
will  show  the  DLP  and  DLQ  values.  The  DLP  and  DLQ  values 
are  the  difference  between  the  specified  and  calculated  power 
at  each  bus  when  the  iteration  limit  was  reached.  Load 
changes  will  not  be  processed  when  convergence  to  the  select- 
ed tolerance  has  not  been  obtained. 

There  is  no  way  of  assigning  a single  phase  load  to  a 
particular  phase  in  a three-phase  system.  All  loads  are  con- 
sidered as  balanced  between  phases. 
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OUT  value  selected  on  the  Input -Output  control  card,  PGMCON. 
If  an  OUT  value  of  0 is  selected,  all  tables  are  printed. 

On  Tape  1 printout  appears  an  input  bus  list,  showing  the 
input  load  values  for  each  bus  and  the  type  of  bus.  On  Tape 
2 printout  appears  the  output  bus  data  showing  the  calcula- 
ted loads  for  each  bus,  the  number  of  iterations  required  for 
convergence,  the  line  flow  power  between  all  buses,  and  the 
slack  bus  power.  If  the  load  change  routine  is  used,  on  the 
Tape  2 printout  appears  the  number  of  the  load  change,  the 
new  bus  data  being  added,  and  the  re-calculated  load  flow 
result  based  on  the  modified  system.  All  values  are  in  per- 
unit  notation  and  should  be  multiplied  by  the  appropriate 
base  for  actual  KW  and  KVA  values. 
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5.  Short  Circuit  Analysis 

Introduction 

The  third  function  of  the  PDSAP  program  is  the  Short 
Circuit  Analysis  routine.  The  short  circuit  routine  selec- 
tively simulates  faults  of  various  types  at  each  bus  and 
then  examines  the  other  buses  and  lines  in  the  system  to 
show  fault  currents  available  at  these  locations.  The  types 
of  faults  that  can  be  simulated  are  three-phase,  phase- 
ground,  phase-phase,  and  phase-phase-ground. 

Input 

The  first  card  in  the  Short  Circuit  routine  is  the 
Short  Circuit  control  card,  SHTCKT.  On  this  card  are  en- 
tered 2 values,  ISYS  and  SCOP.  ISYS  determines  the  network 
configuration  for  the  short  circuit  study.  The  short  cir- 
cuit study  can  be  run  on  any  system  up  to  500  lines  and  250 
buses.  However,  simulated  faults  can  only  be  calculated  on 
50  bus  segments  or  less.  ISYS  indicates  the  number  of  bus 
groups  to  be  analyzed.  Each  group  can  have  from  1 to  50 
buses  and  one  bus  may  appear  in  more  than  one  group.  It  is 
important  to  note,  that  although  only  50  buses  are  shown, 
the  entire  system  is  used  in  the  fault  simulation.  Changing 
the  bus  numbers  in  the  subsystem  does  not  in  any  way  alter 
the  system  configuration.  If  changes  in  line  connections 
are  desired,  the  line  element  cards  must  be  changed  and  the 
program  re-run.  The  SCOP  variable  is  used  to  select  the 
type  of  fault  conditions  to  be  used.  A blank  implies  a value 
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of  0.  For  most  occasions,  values  of  0 or  2 should  be  used 


for  SCOP.  Table  A-XI  and  Fig.  A-10  illustrate  the  format 


and  variable  codes  for  the  Short  Circuit  Control  card 


SHTCKT 


KYWD  I SYS  SCOP 


A-10.  Short  Circuit  Control  Card 


Table  A-XI 


Short  Circuit  Control  Card  Variables 


Variable 
(Card  Column) 


Definition/Use 


Key  word,  use  SHTCKT 


Number  of  subsystems  to  be  used.  If  0 or 
blank,  all  buses  will  be  faulted  in  groups 
of  50. 


Type  of  short  circuit  analysis.  Choose 
0,1,2,  or  3. 


0-All  fault  types  used  (3  Ph-Gnd, 
Ph-Gnd,  Ph-Ph,  Ph-Ph-Gnd) . Bus  Vol 
tages  are  set  to  1.0  per-unit. 


1-Same  as  0 except  voltages  are  re 
suit  of  Load  Flow  routine. 


2- Only  Ph-Gnd  and  3 Ph-Gnd  faults  used 
with  bus  voltages  at  1.0  per  unit. 

3- Same  as  2,  except  bus  voltages  are 
result  of  Load  Flow  routine. 
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The  second  card  read  by  the  Short  Circuit  routine  is 
the  Current  Source  Control  card,  CURSOR.  This  card  specifies 
the  number  of  buses  that  will  contribute  short  circuit  cur- 
rent to  the  system.  Current  sources  will  normally  include 
the  system  source  and  large  loads  such  as  motors.  It  should 
include  anything  that  would  contribute  current  into  the  sys- 
tem in  the  event  of  a fault.  If  no  current  sources  are  pres- 
ent, the  value  on  the  CURSOR  card  may  be  0 or  blank.  If 
there  are  no  current  sources,  there  must  be  at  least  one 
path  to  ground,  or  reference,  through  a transformer  or  other 
line  element  in  the  system  being  simulated.  The  last  line 
element  card  is  not  considered  part  of  the  system  although 
the  SB  and  EB  are  0.  Fig.  A-ll  and  Table  A-XII  show  the  for- 
mat for  current  source  control  card. 

Following  the  Current  Source  Control  card  are  the  Cur- 
rent Source  Data  cards.  The  variables  on  the  Current  Source 
Data  cards  are  shown  in  Fig.  A-12  and  defined  in  Table  A-XIII. 
The  fault  current,  both  FA3  and  FA1,  should  normally  have  a 
large  negative  imaginary  part  based  on  the  assumption  of  a 
positive  reactance  value  for  the  source  being  simulated.  If 
the  data  available  for  the  system  does  not  list  short  circuit 
current  for  the  source,  it  may  be  calculated  by  knowing  two 
of  the  following:  KVA,  voltage,  or  impedance  of  the  source. 

Table  A-XIV  lists  equations  to  use  to  find  the  short  circuit 
current.  The  fault  impedance,  ZF,  is  any  additional  impe- 
dance, other  than  source  impedance,  prior  to  entering  the 
system  at  the  designated  bus.  Likewise,  the  neutral  impe- 
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1-6  7-9  10 


80 


KYWD  I REF 


Fig.  A-ll.  Current  Source  Control  Card 


Table  A-XII 

Current  Source  Control  Card  Variables 


Variable 
(Card  Column) 


Definition/Use 


KYWD 

(1-6) 

IREF 

(7-9) 


Key  word,  use  CURSOR. 

Number  of  current  source  data  cards.  If 
none,  leave  blank;  but  system  then  must 
have  at  least  one  path  to  ground  through 
a transformer. 


1-3  4-5  6-14  15-23  24-32  33-41  42-50 

, 1 , 1 , 1 

13  12  F9.2  F9.2  F9.2  F9.2  F9.2 


IBF  BLK  ReVN  ImVN  ReFA3  ImFA3  ReFAl 


51-59  60-64  65-69  70-74  75-79  80 

> 1 1 — ^ 1 rn 

F9.2  F5.1  F5.1  F5.1  F5.1 


ImFAl  ReZF  ImZF  ReZG  ImZG 


Fig.  A-12.  Current  Source  Data  Card 
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Table  A-XIII 

Current 

Source  Data  Card  Variables 

Variable 
(Card  Column) 

Definition/Use 

IBF 

(1-3) 

Bus  number  of  current  source.  Same  as 
used  for  line  elements. 

BLK 

(4-5) 

Not  used.  Leave  blank. 

VN 

(6-14) 

(15-23) 

Voltage  (KV)  line- to-neutral  as  to  a com 
plex  number.  Usually  all  real. 

FA3 

(24-32) 

(33-41) 

Short  circuit  input  current  (amps)  as 
complex  number.  Usually  all  negative 
imaginary. 

FA1 

(42-50) 

(51-59) 

Short  circuit  input  current  (amps)  for 
Ph-Gnd  fault.  Usually  all  negative  imag 
inary. 

ZF 

(60-64) 

(65-69) 

Fault  impedance  (ohms)  as  a complex  num- 
ber. Should  be  in  addition  to  values 
used  to  calculate  FA3  or  FA1.  Usually 
none . 

ZG 

(70-74) 

(75-79) 

Neutral  impedance  (ohms)  as  complex  num- 
ber. If  any,  should  be  in  addition  to 
values  used  to  calculate  FA3  or  FA1. 

Table  A-”TV 

Current  Source  Equations 


Three  Phase 


Single  Phase  or 
Per-Unit 


I - KVA /VLL/S 

i - vLL/z/y 


V 


KVA/3Z 


I - KVA/V 
I - V/Z 
I2  - KVA/Z 


Voltage  values  in  KV  or  per-unit, 
or  per-unit. 


Impedance  values  in  ohms 


* 


68 

I 


M 


GE/EE/76-43 

dance,  ZG,  is  any  impedance,  other  than  zero,  between  the 
source  and  the  reference  or  ground. 

Following  the  current  Source  Data  cards  is  the  Mutual 
Coupling  Control  card,  NOMUTL.  This  card  indicates  the  num- 
ber of  mutually  coupled  lines  in  the  system  being  simulated. 
The  routine  has  the  capacity  to  simulate  up  to  25  mutually 
coupled  lines.  If  there  are  no  mutually  coupled  lines,  the 
value  on  the  card  should  be  0 or  blank.  Fig.  A-13  illustrates 
the  format  for  the  Mutual  Coupling  Control  card.  When  mu- 
tual coupling  is  present,  following  the  Mutual  Coupling  Con- 
trol card  will  be  the  Mutual  Coupling  Data  cards.  These 
cards  should  have  the  format  as  illustrated  in  Fig.  A-13  and 
defined  in  Table  A-XV. 


1-6  7-9  10 


I I 
6 13 


KYWD  NOMU 

1-3 

4-6 

7-9 

10-12 

13-15 

16-25 

26-35 

Control  Card  { 

1 1 

1 

1 

I 

1 

13 

13 

13 

13 
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LB 

LR 
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ReZM 

ImZM 

Data 

Card 

Fig.  A-13.  Mutual  Coupling  Control  and  Data  Cards 
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Table  A-XV 

Mutual  Coupling  Variables 

Variable 
(Card  Column) 

Definition/Use 

KYWD 

(1-6) 

Key  word,  use  NOMUTL . 

NOMU 

(7-9) 

Number  of  mutually  coupled  lines, 
number  of  data  cards  should  follow, 
none,  leave  blank  or  enter  0. 

Same 

If 

LA 

(1-3) 

Start  bus  of  mutually  coupled  line. 
Use  same  numbers  as  in  line  element 

data. 

LB 

(4-6) 

End  bus  of  mutually  coupled  line. 

LR 

(7-9) 

Start  bus  of  line  to  which  coupled. 

LS 

(10-12) 

End  bus  of  line  to  which  coupled. 

BLK 

(13-135) 

Not  used,  leave  blank. 

ZM 

(16-25) 

(26-35) 

Mutual  impedance  between  two  lines 
unit,  complex. 

in  per- 

After  the  mutual  coupling  cards  are  the  fault  impedance 
cards.  The  first  fault  impedance  card  is  a Fault  Impedance 
Control  card,  NOFALT . This  card  specifies  the  voltage, 
phase  and  fault  impedance  for  a series  of  buses.  Fault  im- 
pedance, ZF,  is  the  value  of  impedance  between  the  fault  and 
ground.  Usually  this  is  zero  or  some  real  value  in  ohms. 


If  the  fault  impedance  is  assumed  to  be  zero  for  the  entire 
system,  only  one  Fault  Impedance  Control  card  is  required. 
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If  there  is  more  than  one  fault  impedance  value  or  different 
phases  and  voltages  for  the  same  value,  additional  Fault  Im- 
pedance Control  cards  are  needed.  Fig.  A-14  illustrates  the 
format  for  the  Fault  Impedance  Control  card,  and  Table  A-XVI 
lists  the  definition  of  the  variables.  With  each  Fault  Im- 
pedance Control  card  that  specifies  an  impedance  other  than 
zero,  a bus  list  must  immediately  follow  indicating  to  what 
buses  the  fault  impedance  applies.  Fig.  A-14  illustrates 
the  bus  list  format  and  Table  A-XVII  the  variables.  The 
last  card  in  this  group  must  be  a Fault  Impedance  Control 
card  with  NFT  of  0. 

The  last  group  of  cards  in  the  Short  Circuit  routine 
are  the  subsystem  cards.  The  Subsystem  Control  Card,  NOBSYS, 
specifies  the  number  of  buses  in  the  subsystem  as  shown  in 
Fig.  A-16  with  the  variables  defined  in  Table  A-XVIII.  Up 
to  50  buses  can  be  in  any  one  subsystem.  The  bus  numbers 
are  listed  on  a bus  list  following  the  NOBSYS  card.  Fig. 

A-15  illustrates  the  format  for  the  bus  list.  If  there  is 
more  than  one  subsystem,  ISYS  greater  than  1,  then  addition- 
al NOBSYS  cards  and  bus  lists  are  used.  It  is  important  to 
insure  the  number  of  NOBSYS  cards  equals  the  ISYS  value  on 
the  Short  Circuit  Control  card. 

The  use  of  the  subsystem  bus  list  should  be  considered 
carefully.  When  working  with  large  systems,  over  50  buses, 
and  line  currents  in  particular  lines  are  of  interest,  the 
subsystem  bus  list  should  be  used.  When  using  the  automatic 
feature  (ISYS-0),  there  is  no  assurance  that  buses  for  lines 
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R6  13 

F6.0 

F6.0 

13 

F6.0 

KYWD  NFT 

ReZF 

ImZF 

PH 

VP 

Fig.  A-14.  Fault  Impedance  Control  Card 


Table  A-XVI 

Fault  Impedance  Control  Card  Variables 


Variables 
(Card  Column) 


KYWD 

(1-6) 


NFT 

(7-9) 


ZF 

(10-15) 

(16-21) 

PH 

(22-24) 

VP 

(25-30) 


Definition/Use 


Key  word,  use  NOFALT. 

Number  of  buses  to  which  fault  impedance 
applies.  If  none,  leave  blank.  Last 
NOFALT  card  must  have  NFT=0. 

Fault  impedance  in  ohms,  complex.  If 
any,  usually  all  real. 

Phase,  Choose  1 or  3.  All  buses  in 
group  must  have  same  phase. 

Voltage  (KV) . Line-to-line  if  3-Ph. 
Line-to-neutral  if  single  phase.  All 
buses  in  group  must  have  the  same  vol- 
tage. 
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1-3 

4-6 

7-9 

10-12  13 

75  76-78 

79-8 

r~ 

1 

1 

1 " 1 

! 

1 

13 

13 

13 

13 

13 

12 

IFB 

IFB 

IFB 

IFB 

IFB 

BL 

Fig.  A-15.  Bus  List  Format  for  Fault  Impedance  and 
Subsystem  Buses. 


Table  A-XVII 
Bus  List  Card  Variables 


Variables 
(Card  Column) 


Definition 


IFB 

(1-3) 

(4-6) 

etc. 

BL 

(79-80) 


Bus  numbers  to  which  fault  impedance  or 
subsystem  applies.  Numbers  should  be  in 
increasing  order.  Skip  numbers  to  which 
does  not  apply. 

Leave  blank.  If  more  than  26  buses  in 
list,  continue  on  a following  card. 


1-6  7-9  10.. 

' 1 1 

R6  13 

KYWD  NBS 


80 


Fig.  A-16.  Subsystem  Control  Card 
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Table  A-XVIII 

Subsystem  Control  Card  Variables 


Variables 
(Card  Column) 

Definition/Use 

KYWD 

(1-6) 

Key  word,  use  NOBSYS. 

NBS 

(7-9) 

Number  of  buses  in  subsystem  list. 
Choose  number  between  1 and  50.  List 
bus  numbers  on  following  card. 

of  interest  will  be  in  the  same  group  if  the  system  is  large. 
For  the  line  current  to  be  printed,  both  the  start  (SB)  and 
end  bus  (EB)  of  the  line  must  be  in  the  same  group. 

Limitations 

There  is  no  way  to  control  to  what  phase  of  a three 
phase  system  a single  phase  branch  circuit  will  be  attached. 

A single  phase  circuit  is  always  assumed  to  be  attached  to 
Ph-A.  For  better  accuracy  in  short  circuit  studies,  it  may 
be  beneficial  to  simulate  the  three-phase  and  single  phase 
parts  of  the  system  separately. 

Output 

The  output  of  the  Short  Circuit  routine  is  controlled 
by  the  OUT  variable  on  the  Input -Output  Control  card  and  by 
the  SCOP  variable  on  the  Short  Circuit  Control  card.  When 
both  OUT  and  SCOP  are  0,  maximum  information  will  be  printed.  ^ 
The  Tape  1 printout  shows  the  Short  Circuit  Input  Data. 
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This  includes  the  current  sources,  fault  impedance  and  mu- 
tual coupling  information. 

Tape  2 printout  shows  the  Fault  Summary  for  each  bus  in 
the  selected  subsystem.  The  complete  summary  includes  the 
three-phase,  phase-ground,  phase-phase,  and  phase-phase- 
ground  fault  currents  and  X/R  ratios.  An  R for  the  X/R  ra- 
tio indicates  that  no  ratio  could  be  formed  as  one  value 
was  0.  If  any  value  appears  as  ****,  this  indicates  the 
calculated  value  has  exceeded  the  allowed  space  for  the  num- 
ber. For  the  current  magnitude's  and  X/R  ratios,  999  per- 
unit  is  the  limit. 

Also  as  part  of  the  Fault  Summary  are  printed  the  phase 
voltages  for  the  various  types  of  faults.  For  faults  be- 
tween phases,  the  routine  assumes  the  fault  is  between  phases 
B and  C.  For  the  three-phase  and  phase- to-ground  faults, 
the  bus  voltages  for  all  buses  in  the  subsystem  will  be  lis- 
ted. Likewise,  line  currents  for  three-phase  and  phase-to- 
ground  will  be  listed  for  any  lines  connecting  buses  in  the 
subsystem.  If  the  fault  current  on  a specific  line  is  de- 
sired, both  the  start  and  end  buses  must  be  included  in  the 
subsystem  list. 

The  magnitude  of  the  fault  current  will  be  greatly  in-* 
fluenced  by  the  location  and  size  of  current  sources,  transf- 
ormer connections,  and  impedance  values  for  conductors.  A 
small  error  in  any  one  of  the  foregoing,  could  make  a signif- 
icant difference  in  the  fault  currents. 

When  the  faulted  bus  is  single  phase,  even  if  part  of  a 
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three-phase  system,  only  the  phase-to-ground  information  will 
be  printed.  Again,  note  that  all  values  are  in  per-unit  and 
should  be  converted  to  amps,  ohms  or  volts  by  using  the  ap- 
propriate base  values. 
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6.  Trouble  Shooting 

The  PDSAP  program  has  numerous  routines  designed  to 
detect  errors  with  input  data  and  errors  that  occur  with 
calculations.  When  there  is  an  error,  usually  it  will  ap- 
pear as  either  a program  error  or  a FORTRAN  error. 

For  program  errors,  a statement  will  appear  with  the 
output  data  stating  that  the  program  has  terminated  for  a 
particular  reason.  Usually  there  is  enough  information  giv- 
en to  locate  the  input  data  card  causing  the  problem.  Pro- 
gram errors  can  usually  be  grouped  into  those  caused  by  data 
cards  and  those  caused  by  program  control  cards.  When 
trouble  develops,  first  check  the  deck  structure  as  shown  in 
Fig.  A-l  for  proper  sequence  of  control  cards  and  data  cards. 

Errors  on  data  cards  are  usually  caused  by  data  not  in 
the  proper  columns  or  improper  coding.  Both  are  very  common 
errors  and  can  be  held  to  a minimum  by  careful  checking  of 
the  data  after  the  cards  have  been  punched.  Sometimes  values 
entered  for  impedance,  wire  size  or  other  parameters  are  non- 
standard and  may  cause  problems.  When  this  type  of  error  oc- 
curs, the  best  solution  is  to  change  the  variable  causing  the 
problem  to  a standard  size  or  value.  Also,  impedance  values 
of  several  hundred  ohms  may  be  too  large  for  some  operations. 
This  can  be  corrected  by  adding  additional  buses  to  lower 
the  values. 

Other  program  errors  can  result  from  insufficient  data 
being  supplied.  In  some  cases,  values  will  be  assumed  for 
sizes,  impedance  or  other  variables  when  the  input  is  omitted. 
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However,  in  other  cases  no  entry  results  in  a zero  value 
which  will  halt  the  program.  The  error  messages  should  help 
to  identify  the  variable  causing  the  problem. 

A third  situation  that  may  cause  an  error  is  improper 
format  being  used.  This  is  the  result  of  a decimal  point 
being  omitted  or  an  error  in  placing  the  data  in  the  proper 
columns.  This  type  of  error  may  or  may  not  halt  the  program. 
It  is  advisable  to  at  least  once  check  the  printout  of  the 
assembled  input  line  data  to  verify  that  no  mistakes  have 
occurred  even  if  the  program  has  run  successfully. 

When  the  error  is  a FORTRAN  error,  no  output  is  pro- 
duced except  the  day  file  which  contains  the  FORTRAN  control 
card  information  and  the  FORTRAN  error.  FORTRAN  errors  are 
not  as  easy  to  detect  or  correct  as  program  errors. 

Two  common  mistakes  are  to  omit  necessary  data  cards 
or  to  mis-count  data  cards.  In  several  instances  the  number 
of  data  cards  must  match  a variable  designated  on  a preced- 
ing control  card.  This  is  true  with  the  Load  Change  Control 
cards , BUSCHG,  and  the  Current  Source  Control  cards,  CURSOR. 

In  the  Load  Flow  routine,  the  bus  data  cards  must  be  the 
same  number  as  the  number  of  buses  used  in  the  line  element 
program.  When  the  number  of  data  cards  is  less  than  required, 
or  data  cards  are  missing,  the  most  frequent  result  is  the 
FORTRAN  error,  "Illegal  data  in  the  field."  When  this  type 
of  error  occurs,  it  means  that  the  card  with  the  data  listed 
' above  the  error  statement  is  not  compatible  with  the  input 
format  required.  For  this  type  of  error,  first  check  the 
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card  for  proper  format  and  location.  Perhaps  a line  element 
card  got  in  the  bus  card  group.  Also  check  for  missing  con- 
trol cards  or  missing  data  cards. 

Another  method  of  finding  the  cause  of  the  FORTRAN  er- 
ror, "Illegal  data  in  the  field"  is  to  look  for  the  line  num- 
bers of  the  routines  that  were  being  used  when  the  error  oc- 
curred. This  information  will  be  just  below  the  error  state- 
ment. Fig.  A-17  has  an  example  of  this  type  of  error.  By 
checking  the  line  number  with  the  same  line  number  in  a 
listing  of  the  program,  it  is  often  easy  to  see  why  the  er- 
ror occurred. 

One  FORTRAN  error  that  is  almost  impossible  to  locate 
is  a mode  error.  A mode  error  usually  occurs  when  division 
by  zero  is  attempted  in  the  program.  For  resolution  of 
mode  errors  or  other  FORTRAN  errors,  one  of  the  following 
methods  may  prove  successful. 

Try  each  function  separately.  Start  by  running  input 
data  only  with  either  the  LINEZ  or  LINDATA  routines.  Then 
add  either  the  Load  Flow  or  Short  Circuit  functions.  This 
should  determine  which  program  function  is  causing  the  er- 
ror. Carefully  review  the  input  data  that  is  used  by  the 
program  and  compare  it  with  the  formats  in  the  preceding 
chapters . 

A second  method  that  may  prove  useful  if  the  system  is 
quite  large  is  to  divide  the  system  into  smaller  parts.  If 
the  program  will  work  with  10  buses,  add  more  until  the  prob- 
lem is  encountered.  Look  for  abnormal  sizes  or  mistakes  in 
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ORE CORfl  NO,  13  SHTCKT 


0*  ERROR  DATA  IN»JT  • ILLiSSL 
FRROR  NUMBER  78  OETEITEO 
CALL' 0 FROM  x,AlCE  R=  AT  ADORER 

CALLED  FROM  IN°D*  AT  AOORE3 

CALIPO  FROM  UNE7  AT  LTNE 

CALLED  FROM  INPUT  AT  .INi 

CALLED  FROM  'X*:  AT  LIME 


1334567890  13345679901334567890 133455M9 
DATA  IN  FIE.O  • ** 

OY  INCOM*  AT  ADDRESS  000303 

S 000345 

S 000075 

58 

34 

93 


1 CS? 

33. 43. 

33.43. 
33  43. 

33.43. 

33.43. 
33-43. 

33.44. 
33.  44, 
33.44. 
33.44. 
33.44. 
33.44. 
33.44. 
33.44. 
33.  .4. 
33.44. 
33.44. 
33.44. 

0 


NOS/4-  >.41*E  EY9R  CMR3  R.D  33.3T 

13. TU634SM  FROM  /BO 

13.IR  00000330  WORDS  - FILE  INPUT  , OC  00 

13. TU6, T 30 , 1030, CM16C 000, STCS9.T750 159, UNDE 
13.  RWDDR , 40 1 >. 

17. ATTADM, l DFLOH,LDF.OW5,CY=5,ID=T 760163. 
17.L0F.0W. 

40.FTN  - FATAL  ERR3R  78 
40.  .155  CP  SECONDS  EXECUTION  TIME 

,0.0°  00000138  WORDS  - FILE  OUTPUT  , DC  40 

40. MS  83433  WOROS  < 83433  MAX  JSEO) 

40.SCM  164000  WORDS  MAXIMUM 


40.  CPA 
^*0.  10 
40.  CM 
40.  CRUS 
40.  COST 
40.  PP 


4.317  SEO. 
6.909  SEO. 
434.983  <H3. 


13.486  SED. 


40.  £J  ENO  OF  JOB,  99 


TU60B5M 


1.553  ADJ. 

3.743  AO J. 

7.637  AO J. 
13.934 

5 ,7T 

OATE  11733776 
T750159. 

777/  ENO  OF  LIST  7/77 


Fig.  A- 17.  FORTRAN  Error  Example, 
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coding  that  may  have  occurred. 

Sometimes  the  use  of  the  tape  dump  routine  may  help  find 
a mode  error.  By  use  of  additional  FORTRAN  control  cards, 
the  content  of  the  output  tapes.  Tape  1 and  Tape  2,  will  be 
printed  even  if  the  mode  error  occurs.  These  cards  are  plac- 
ed just  before  the  first  EOR  card  and  should  be  after  the 
DISPOSE,  TAPE2  card.  The  cards  are  as  follows: 

1.  EXIT. 

2.  DISPOSE, TAPE1, PR- IBB. 

3.  DISPOSE, TAPE 2, PR- IBB. 

The  trouble  is  usually  beyond  the  last  information  printed 
•-*  the  program  execution  is  ahead  of  the  printer. 

A fourth  method  to  find  a mode  error  is  the  mode  over- 
ride method.  By  placing  a FORTRAN  control  card,  MODE;,  im- 
mediately following  the  ATTACH,PDSAP,ID*Txxxxxx,CY=XX  card, 
the  program  will  continue  even  when  a mode  error  is  encoun- 
tered. The  results  from  the  program  should  not  be  trusted 
under  this  condition.  The  reasons  for  the  mode  error  ap- 
pears on  a separate  annotation  in  the  dayfile  listing. 

In  an  effort  to  help  the  user  locate  some  of  the  more 
frequent  errors.  Table  A-XIX  is  a list  of  some  of  the  error 
messages  and  their  cause.  Other  error  messages  may  appear 
but  there  should  be  enough  information  given  to  locate  the 
problem.  It  would  be  most  helpful  to  have  a listing  of  the 
program  to  trace  some  of  the  errors  when  the  messages  do 
not  specify  the  exact  card  causing  the  problem. 

In  summary,  if  there  is  no  success  in  resolving  the 
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Table  A-XIX 

Error  Messages  and  Causes 


Error  Message  Cause 


Control  card  not  in  proper 
format  or  location. 


Illegal  Data  in  the 
Field  (FORTRAN  ERROR) . 


Use  of  CON  code  ( ) not 
allowed. 

Too  many  slack  buses. 


Bus  ( ) should  be  connected 
to  line  bus  of  same  number. 


Error  with  ID  or  C value, 
line  card  ( ). 


Error  with  input  line  card 

( ). 


Positive  and  zero  sequence 
impedance  values  are  zero. 


IDB  can't  be  greater  than 
1 in  Load  Change  routine. 


Mis-spelling  of  keyword. 
Control  cards  omitted  or 
out  of  order. 

(1)  SB“0,EB=0  card  not  last 
card  in  line  element  list. 

(2)  Number  of  bus  data  cards 
not  equal  to  highest  bus  num- 
ber in  line  element  list. 

(3)  Number  of  bus  data  cards 
not  equal  value  on  preceding 
control  card. 

Improper  CON  code,  check 
table  of  values  again. 

Two  or  more  Type  3 buses  in 
bus  data  cards  for  Load  Flow 
routine.  Only  one  allowed. 

Bus  numbers  on  bus  data 
cards  for  Load  Flow  must 
match  line  bus  numbers. 

Improper  ID  or  C value  on 
line  element  data  card. 

Check  proper  columns  and 
values . 

Error  with  wire  size  or 
number  of  ground  wires. 

Check  if  standard  size  and 
in  proper  columns . 

No  impedance  specified  on 
line  element  data  card  for 
LINEZ  routine. 

Bus  data  card  in  Load  Change 
routine  is  in  error.  Check 
format.  No  Type  2 or  3 
buses  allowed. 
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Table  A-XIX 

(Cont'd) 

Error  Message 

Cause 

Error  in  transformer 
connection  code. 

Wrong  connection  code  for 
transformer  or  format  error. 
Check  with  table  of  codes. 

Fault  source  impedance 
routine  has  detected  a 
zero  input  for  3-ph  fault 

No  3-ph  fault  current 
specified  for  current  source 
(FA3-0).  FA3  can  not  be  zero 

Bus  0 cannot  be  in  sub- 
system list. 

Bus  number  specified  on 
NOBSYS  not  equal  to  number 
of  buses  on  card  following. 

problem  by  using  the  foregoing  information,  the  advice  of  a 
qualified  programmer  would  be  helpful.  Although  extensive 
use  of  the  program  has  been  made  by  simulating  various  actu- 
al and  theoretical  systems,  unique  situations  may  be  encoun- 
tered that  cannot  be  simulated  with  the  program  without  some 
modification. 
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7 . Example  Problems 

Example  problems  contained  in  this  chapter  were  selected 
to  illustrate  the  capability  and  validity  of  the  PDSAP  pro- 
gram. To  validate  the  program  results,  comparison  was  made 
with  published  results  for  the  same  problems. 

Problems  were  chosen  for  a specific  purpose  as  noted  by 
the  introductory  paragraph  for  each  problem.  Each  example 
has  a one-line  diagram  from  which  the  computer  input  data 
was  prepared.  An  illustration  for  each  problem  shows  the 
arrangement  and  format  of  the  data  cards  for  input  to  the 
program.  In  order  to  conserve  space,  the  FORTRAN  cards  are 
not  shown.  The  order  and  format  of  the  FORTRAN  cards  is 
found  in  Chapter  2. 

The  computer  printout  for  each  problem  follows  the  il- 
lustration of  the  data  cards.  By  choice  of  the  various  OUT 
codes,  information  not  required  can  be  omitted  from  the 
printouts. 

The  user  is  encouraged  to  take  the  one-line  diagrams 
for  each  problem  and  duplicate  the  results  to  gain  familiar- 
ity with  the  program.  The  introduction  to  each  problem  in- 
dicates which  routines  were  used  and  other  necessary  infor- 
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Example  Problem  1. 

This  example  illustrates  the  use  of  the  LINEZ  input 
routine  and  the  Load  Flow  routine.  It  was  adapted  for  the 
PDSAP  program  to  validate  the  accuracy  of  the  Load  Flow 
routine  (Ref  5:284).  The  system  base  is  100  MVA.  The  neg- 
ative values  indicate  power  out  of  the  system  and  the  posi- 
tive values  indicate  power  into  the  system.  All  values  are 
in  per-unit.  Fig.  A-18  is  the  one-line  diagram  of  the  sys- 
tem. Fig.  A-19  is  the  data  card  format  and  order. 


North 


All  values  in  per-unit 


-3000 

15000 


Fig.  A- 19.  Data  Card  Format,  Example 
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P3VER  )I3TRIRJTI3N  SYSTEM  analysis  PROGRAM  (P3SAP) 
TAP£  1 PRINT3JT 


EXAMPLE  PR33L-1  #1 
L0A3  FLOW  A1A_VSIS(STAGG> 


•***  PR33RAM  CONTROL  33NST ANTS 

CONc  2 
IN**=  1 

OUT:  0 

CHG*  -0 


prosram  papametcr  jomstamts  *** 

BASE  KVA  FREQUENCY  TEMPERATJRX  EART1  RESISTIVITY 

lOnoiO.  KVA  SO.  M7  25.  3ES.  3 10).  METER-3HM 


„ T 1EZ  SUBROJTt  Mi 

ASSEMBL’D  INPUT  LINE  DATA  (PER-UNIT) 


CONDUCTOR 
FROM  - T ) 
1 » 

*13. 

1 

RE  ( Z ) 

. 0200 

IM(Z) 

. 06  00 

RE (701 
.0703 

IM( 70 ) 

. 2100 

CONDUCTOR 
FROM  - TO 
1 J 

N3. 

2 

RE  ( Z) 

. 0930 

iM<n 
.2'>  00 

RE(ZO) 

.2900 

IM(ZO) 

. oao  o 

CONDUCTS’ 
FROH  - ro 
2 S 

N). 

3 

R£(Z> 

.05)0 

IN  (Z ) 

. 1000 

RE ( 70 ) 
.210) 

Ii(Z  0) 

. 0300 

C0N0UCT3R 
FROM  - *■) 
? R 

ND. 

A 

RE  (7 1 
.05)0 

IM(Z) 

. 1000 

RE(ZO) 

.210) 

11(20) 
.630  0 
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CONDUCTOR  NO. 

5 

FROM 

- ro 

RECZ> 

IM(Z) 

RE( ZOI 

INC  70) 

: 

2 

3 

.0410 

. 1200 

.1600 

.4200 

CONDUCTOR  NO. 

6 

FROM 

- TO 

RECZ) 

IMCZ) 

REIZOt 

INC  ZO) 

3 

4 

.0110 

. 0300 

.0353 

.1050 

CONDUCTOR  NO. 

T 

FROM 

- TO 

RECZ) 

IN  CZ) 

RE(ZO) 

IHCZO) 

1 

4 

J 

. 01)0 

. 2400 

.2100 

. 0400 

1 

; 

SUMMARIZED  INPUT  BUS  OATAI  PiRIJMIT 

: 

LISTED  3Y 

ASCENDING  BJS  NUMBERS 

• 

• 

: 0 

TYPE 

PONER 

NO 

VCNA3) 

«mongoe;i 

REAL  REA5TI0E  OCNIN)  3CNM) 

1 

3 

1.060 

0.1000 

0.00000 

0.00300 

0.0000  0.0000 

2 

1 

1.000 

0.0000 

.20000 

.20000 

0.0000  0.0000 

3 

1 

1.000 

0.0000 

-.65000 

-. 15000 

0.0000  0.0000 

4 

1 

l.qoo 

0.0000 

- • 40000 

-.05000 

0.0000  0.0000 

5 

1 

1.000 

0.0000 

-.60000 

-.10000 

0.0000  0.0000 

»«»• 

• 

m 

• 

RiORO 

ERED  BUSLIST 

RETURNEO  it 

SUBROUTINE 

* 

OlOi*  ♦ 

# 

1 

3 2 

6 I 

C 
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SORTED  LINE  INPUT  l»Tt 


USTEO 

3 r ft *C  ENDING 

BJS  NJN5ERS 

E9 

5 

9 

Ru(ZO) 

1>I(Z0> 

2 

. 50000; *01 

1>000E*02 

. 20000E-01 

.210001*00 

3 

, 12500 ; *0 1 

• • 3 2**0  OE*  01 

• 2S000E*00 

• 343Q0;*00 

1 

. >00001*01 

•. 15900£*02 

.20000E-01 

. 21 100; *00 

3 

• lo&67;*01 

>0Q00E*61 

• 21000£*00 

•630Q0;*00 

4 

. 16652; *01 

*«  >0000£*01 

1 2100  0E*00 

« 63000;*  00 

9 

25000;*01 

25000E*0i 

• 1600  0E*00 

•42000;*00 

1 

• 125001*01 

*. 3250  0E*01 

• 2000  0E*00 

. 06000;*  00 

2 

.156521*01 

*. 50nooE*01 

• 21000E*00 

• 63000;*  00 

4 

. 10000; *02 

••  30100E*02 

•35000E-01 

.105001*00 

2 

• 16662;*01 

* . >000  OE*  01 

« 2100  0E*00 

. 63000;*00 

3 

. 100001*02 

*• 30000E*02 

• 35000E-01 

• 1 0>00; * 00 

5 

.125001*01 

32 50  OE* 01 

« 2000  0E*00 

.360001*00 

2 

. ?5000;*01 

-.2>000E*01 

,14000E*00 

.«2000;*00 

4 

• 12500;*01 

S2500E*01 

•26000£*00 

.040001*00 

90 
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BOVR  TISTPinUTION  SYSTFN  ANALYSTS  PROG»AH  (P3  SAP) 
TAPE  2 PSINT3.IT 


S<AH<»LE  PROBL'M  #1 
LOAO  FLOW  ANALYr IS (ST AGS) 


PROGRAM  CONTROL  CONST ANTS 


CON*  ? 
INP*  1 

OUTr  o 
CHG*  -0 


***  PROGRAM  PARAMETER  30NSTANTS  •*• 


BAsr  KVA 

lonnno.  kv« 


FREQUENCY 
AO.  H7 


TEHPERATJR- 
25.  OES.  C 


CARTS  RESISTIVITY 

100.  1ETER-3MM 


RESULTS  OF  FAST  "irCOUPLEO  LOAO  BLOW  ANALYSTS 
ALL  WAGNTTtnC  VALUES  ARE  »SR-UNIT 
SYSTEM  HAS  r BUSES!  0 ARE  TYPE  ?, 

NUMB??  OF  TIMES  LOAO  BUSES  WILL  SE  CMAVGEO(NLC> * 2. 

CONVERGENCE  TOLERANCES! 

PTOL*  .00019 
OTOL*  , 00019 


91 


0 
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■ 


0 


PYSTEM  SUMMARY 

CONVE^-ENC"  09TAIMC:)  IN« 
9 OITA  THETA  «VMO 
8 O'LTA  V ITERATIONS. 

9US  MO. 

REAL 

SLACK  OUS  P 042?  *•**»< 
REACTIVE 

IAS. 

1 

1.7982?  .24445 

1.3210.3 

* 

* 

***** 

calculat 

SO  LINE  F.OHS 

♦ (TM r 

• 

LINE 

PI  IKS  ARE 

DEFINE"1  POSITIVE  WHEN  FLOWING  "’IT  FROM 

THE  9US)* 

LIN 

r 

POKER 

LIME 

POKER 

FROM 

TO 

REAL 

REACTIVE 

FROM  TO 

REAL 

REACTIVE 

l 

2 

.89953 

.13865 

2 1 

-.8751? 

-.09537 

1 

3 

.40947 

.10580 

3 1 

-.31599 

-.06774 

2 

3 

.24689 

. 0"146 

3 2 

-. 74311 

-.07014 

2 

4 

.27932 

. 0ft061 

4 2 

-• ?’450 

-, 06645 

2 

5 

.54991 

.13330 

5 2 

-.53703 

-.09766 

3 

4 

.18909 

-.01213 

4 3 

-.18974 

.01319 

4 

5 

.06334 

. 00326 

5 4 

-.06302 

-. 00231 

OUTPUT 

9US  DATA 

* 

* 

* 

• 

»OKER 

NO,  TYPE 

MINE 

V(MA 3) 

V ( AN3-9E1) 

REAL 

REACTIVE 

1 

3 

NORTH 

1,0600 

0.0000 

1.29822 

.24445 

2 

t 

90MTH 

1.03-.5 

-2.6397 

, ?oono 

, 20000 

3 

l 

LAKE 

1.0008 

-4.817’ 

-.45800 

-.15000 

4 

l 

HAIM 

l.fl0'3 

-5.  1344 

-.40190 

-. 05000 

5 

t 

rLM 

1.0016 

-5.9930 

-.60000 

-. 10000 

92 

1 


M. 
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\ 


• 

• 

LOA  flow  oue  CHANGE 
fH'NGE  NUMBER  t 
NUMBf®  07  DUSES  CHANGED  2 

• 

» 

0 

0 

« 

* 

»JS  CHANGE  DATA 

0 

0 

0 

MO.  Type 

NAME 

V(MAG>  VUNG-1EG) 

=»OWE 

REAL 

0 

3 1 

4 1 

. 

BLUE 

RED 

l,  ooo  o.noo 

1.900  0,000 

-. 45190 
-. 34909 

-. 15100 
-.10900 

* 

* 

r Y STEM  SUMMARY 

0 

0 

« 

: 

( BUS 

CONVE''SrNOP  OBTAINED  IN« 
14  OITA  THETA  AMO 
14  Dr  L TA  V ITERATIONS. 

0 

0 

0 

0 

MO. 

PEAL  REACTIVE 

MAG, 

1.19240  .27750 

1.22437 

****** 

i : 

• <TH*  LIME 

# 

CL  UWS  ARE 

calculated  line  flows 
DEFINED  POSITIVE  wren  flowing  OUT  PRON 

0 

0 

THE  3US) * 

• 



LIN’ 

FROM  TO 

POWER  LINE 

REAL  REACTIVE  FROM  TO 

POWE 

REAL 

* 

REACTIVE 

1 2 

. 81 844 

. 15079  2 1 

-.91505 

-.12364 

1 3 

.37404 

■ 116*2  3 1 

-.35311 

-.05402 

2 3 

.22405 

•0D057  3 • 2 

-. »?137 

-.05072 

2 4 

.247*3 

,0Dt*7  4 2 

-. 24391 

-.05210 

2 9 

.53340 

.13920  5 2 

-.52208 

-.10525 

3 9 

.13458 

. 01  4 74  4 3 

-.13450 

-.01419 

4 9 

.07440 

-.00371  5 4 

-. 07792 

. 00517 

1 f 

93 

w— u.^. 
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♦ 


• 

oiit°i)T  ous  mis 

« 

♦ 

#***4 

»OWE 

§ 

R 

NO. 

type 

NS*- 

VtMAGl  VIANGOES)  REAL 

REACTIVE 

1 

WORTH 

1.0600  0.0001  1.13743 

. 77760 

7 

1 

pomth 

1,  0 3r  4 -7.3347  .*1010 

.70100 

1 

l 

OL'.K 

1.00=7  -4.  3 ISO  -.45100 

-.13001 

4 

1 

pro 

1. 00  r 4 -4.5353  -.30110 

-.  100  0 0 

5 

1 

CLM 

1.0012  -5.6277  -.51100 

-. 11000 

♦ 

LnAn  FLow  1US  CHANGE 

« 

CHANGE  NfJM8ER  7 

* 

# 

**♦*« 

NUMBrR  OP  9USCS  CK4Nr.ro  7 

( 

• 

# 

9'IS  CHANGE  OATA 

30<li 

R 

NO. 

TYPE 

NAN: 

V (NAG)  V (ANG-9E3)  REAL 

REACTIVE 

4 

1 

MAIN 

1,000  0.000  -.40110 

-. 05000 

1 

UK: 

1,000  0.000  -.45000 

-. 15100 

;**' 

: 

SYSTEM  SUMMARY 

: 

CONVERGENCE  0BTATNE1  INI 

19  DELTA  THETA  AND 

••• 

18  DELTA  V ITERATIONS. 

mis 

NO. 

REAL  REACTIVE  HAG. 

1 1.2961^  .24«*53  1.32093 
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* (THF 

LTN" 

rL  9W5  ARF 

CAL'ULATEO  LIN"  c’.ow<; 
nrFINEr'  °OS  I T I V'  WHEN  FLOWING  0 IT  fr-jI 

THE  3*13 ) * 

LIN 

FROM 

TO 

POWiR 

1'SL  REACTIVE 

LINT 

FROM 

TO 

OOWER 

REAL 

9EA3TIVE 

1 

2 

.88949 

. l-'sn 

? 

1 

-.37505 

-. 09544 

1 

3 

.4085.6 

, 1053? 

3 

1 

-. 73597 

-.05775 

2 

3 

.24633 

. 0”1 46 

3 

? 

-. 24311 

-.07014 

2 

4 

.279''? 

. 03062 

4 

2 

-.  2’460 

-.05645 

2 

5 

.54590 

. 17336 

5 

2 

-. r770? 

-. 09771 

3 

4 

.18909 

-.01211 

4 

3 

-.13374 

.01317 

4 

5 

.06333 

.00329 

5 

4 

-.06302 

-.00234 

OUTPUT  RUS 

>**»*»***»*+»«* 

OAT  A 

****  » * * ♦ 

• »*  » 
**♦» 

powir 


NO. 

TYPE 

NAME 

V (MAG) 

V (ANG-3SG) 

REAL 

REAGTI VE 

1 

3 

MO»TH 

1.0600 

0.  0000 

1.29315 

.24453 

2 

1 

FO'ITH 

1. 0365 

-2.  5395 

,20000 

. 20000 

3 

1 

iA<r 

1. 0037 

-4.  8075 

-,450"0 

-.15000 

4 

1 

*ATN 

1.0072 

-5. 1342 

-.  40000 

-. 05000 

5 

1 

rL  N 

1.  0016 

-5.9325 

-. 60000 

-.10000 

Example  Problem  2 

This  example  illustrates  the  use  of  the  LINDAT/  input 
routine  and  the  Short  Circuit  routine.  It  is  adapted  from 
a text  to  show  the  validity  of  the  PDSAP  program  in  calcula- 
tion of  fault  currents  (Ref  3:11).  Fig.  A- 20  is  the  one- 
line  diagram  and  Fig.  A-21  illustrates  the  format  and  order 
of  the  data  cards. 
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rH 

cd 

»- 

4-* 

rH 

r-> 

3 

cd 

rH 

4> 

S / 

C 

4-» 

3 

o 

C 

c 

o 

• 

o 

O 

c 

V 

o 

N 

u 

•H 

CO 

0) 

N 

to 

•H 

CO 

rH 

rH 

•k 

rH 

ex 

3 

Q 

hJ 

4-1 

z 

X 

• 

o 

•k 

a, 

cc 

►J 

u 

< 

X 

os 

w 

s 

0 

a 

V 

-J 

z 

s 

< 

3 

Diagram,  Example  Problem 
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(VI 
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Fig.  A- 21.  Data  Card  Format,  Example 
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POVR  OTSTpIOUTIOM  SYSTEM  ANALYSIS  "ROGPAN  ("OSA") 
T* pr  1 PRINTOJT 


EXAMPLE  “RO^L'M  *2 
SNOPT  CIPC'JIT  ANALYSIS 


*••*  PROGRAM  CONTROL  CONSTANTS 


CON=  3 
INP=  0 
OUT*  4 
CHCs  -0 


***  PROGRA  M PARAMETER  CONSTANTS  ••• 


BASE  KVA 
looono.  KVA 


FREQUENCY 
60.  M7 


TEMPERATJRS 
25.  3E3.  C 


EARTH  °£ SI5TI VI TY 

100.  1ETER-3MM 


LINPATA  SUPROUTIN; 

ASSEMBLEO  INPUT  LINE  OATA  (PER-UNIT) 


CON0UCTO"  NO. 
FROM  - TO 
1 ? 


1 

RE  (?) 
.2077 


IM(Z> 

. 3167 


RE(?0) 

.6654 


IH( 70> 

. 1695 


CONOUCTOP  NO. 
FROM  - TO 
? 3 


2 

RE  ( 7) 
,2856 


IN  (7 ) 
.3773 


RE ( 70) 
.6070 


IMt  70 ) 

1. 0602 


CONOUCTOP  NO. 
FROM  - TO 
3 6 


3 

RE  ( 7) 
.2142 


IM(Z) 

.28  30 


RE(70> 

.4553 


IMCZO) 

.7051 


C0N0UCT09  NO, 
FROM  - TO 
3 5 


4 

RE  (7) 
1,4387 


IM  (7 ) 
1,9008 


RE(70) 

3.0578 


IN(70) 

3, 3404 


CONOUCTOP  NO, 
FROM  - TO 
5 6 


5 

RE  (7) 
.7140 


11(7) 

.9433 


RE (70) 
1.5175 


11(70) 

2.6504 
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( 


CONOURTOP 

fpri  - to 

5 

•10. 

6 

RE(7> 

1.41.94 

IK7) 

1.  2457 

RE (70) 
2.6315 

IM<70) 

3.7903 

conourto9 

FP01  - to 
5 * 

NO. 

7 

RE(7) 

1.514? 

IKZ) 

1.  3095 

RE(ZO) 

’.7663 

11(70) 

3. 9944 

CONDUCT"9 
FROM  - TP 
2 0 

NO. 

s 

RE  (7) 
.1749 

IM(Z> 

. 0461 

RE(ZO) 

.4597 

11(70) 

.2210 

CONOHRTO" 
FROM  - TO 
' 2 1.0 

NO. 

0 

9E  (71 
.1656 

IM  (7) 

. 176? 

PE (70) 
.3699 

11(70) 

. 0943 

COMOURTP" 
FRCH  - TP 
10  11 

NO. 

10 

»em 

.nos 

IKZ) 

.1485 

RE(ZO) 

.3025 

11(70) 

. 0795 

CONDUCT"" 
FPRM  - TO 
11  1? 

NO. 

ii 

RE  ( 7 > 
.117? 

IM(7) 

.1247 

RE (70) 

• 254t 

IM(70) 

. 0667 

CONOURTn9 
FROM  - TO 
1?  14 

NO. 

1? 

RE(7> 

. 06?6 

IM(7» 

. 0166 

RE( 70) 
.175? 

11(70) 

. 0795 

CONO'ICTO’ 
FROM  - TO 
1?  IT 

NO. 

1? 

RE  (Z) 
.1591 

IM(7) 

.2119 

RE(ZO) 

.431? 

11(70) 

. 1134 

CONOURTO9 
FROM  - TO 
11  15 

NO. 

14 

RE  (7) 
.0464 

IHC2 » 

. 0613 

RE(ZO) 

.0703 

IKZO) 

. 2555 

CONOURTO9 
FROM  - TO 
10  15 

NO. 

15 

RE<2> 

.7140 

IK7) 

.2276 

RE (70 ) 
.4635 

IKZO) 

.1219 

CONOUCTOO 
FROM  - TO 
16  1’ 

NO. 

16 

RE  ( 7) 
.0556 

IMC7) 

.0147 

RE (70) 

. 1555 

11(70) 

. 0707 

CONDUGTO9 
FROM  - TO 
16  IS 

NO. 

17 

RE(Z) 

.0696 

IM  ( Z 1 
.0164 

RE  ( 70) 
.1959 

11(70) 

.0554 

0 


100 
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SMOPT  CIRCUIT  INP'JT  04T4 


souprrr  imp^hm';"  bus  ho.  i volts  l-vuvi  7. pi  o.oo 

3-°N  FVILT  ',r*'»?sm*PS>  3L5.44  -3104,00 

PH-F.MO  FS'JLT  -•)RPiMT(44PS  » 339.04  -3770.04 

FAULT  ’(OHMS)  -0.0  -0.0?  MS  IT  ?<0H4S>  -0.0  -0.0 

o 

FAULT  T"P"nt»JS*(7F)  <OHMS)=?0  010  -0.000 

PHASF*  3 O'JC  VOLT«r,S(KV)<  1?.47 

BUS  3 

BUS  4 

BUS  5 

BUS  ft 

BUS  6 

FAULT  THP£0«WS"(7F)  (OHMS)  =?0, 000  -0.  000 
PHASE*  1 BUS  VOLT  ASS (KV>  = 7.?0 

BUS  7 
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POMCR  OISTRIB'JTION  SYSTEM  ANALYSIS  PROGRAM  (OOSA») 

T«or  2 oR1NTOjT 


example  prorl'm  #? 
SHORT  CIRCUIT  ANALYSIS 


•***  PROGRAM  CONTROL  CONSTANTS 

CON=  3 
INP=  0 
OUT*  4 
CHG=  -0 


BASE  <V A 

loooon.  KV» 


*•*  PROGRAM  PARi.mptER  CONSTANTS  **• 


PREOUENCY 
60.  HI 


TEMPERATJRE 
25,  DEG.  C 


EARTH  RESISTIVITY 

100,  METER-OHM 


RESULTS  OP  SHORT  CIRCUIT  ANALYSIS 
ALL  VALUES  ARE  PER-JNIT 

SYSTEM  HAS  IS  RISES.  P AULT  OOOEISOOR)  TS  -0  . 
THERE  ARE  t SUBSYSTEM  STUOTES (ISYS) . 


SUBSYSTEM  STUDY  NO,  1. 
NUMPCR  OP  RJSSES  IN  THIS  SYSTEM  ISt 


mm 
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* PAULT  SUMMAPY  FOP  9JS  3 * 

* 7rr  0.(11)  o.U.  • 

* ?G«  ( 0.01,  0.01)  ».U.  • 


THPr^-PMUCT  PHAS'-S’CMINfl  »H»Sr-PHAS-  p-j.pH- SOU^O 


IF(MAr,)«  , 0* ?6 

IF (MAG) * .1718 

IF (MAG) 

= .11-3 

IF(MAG) 

= .037? 

X/R* 

.1TO 

x/p=  ,ir? 

X/R* 

. 302 

X/R* 

.075 

£F(A>* 

1. 0111 

£P(A>* 

1.0060 

EF( 9)  * 

1.1081 

;F(3>* 

• 4784 

EF(C)* 

.7651 

■FC)  = 

. 4784 

I F( 3) * 

. 3949 

X/R(  9 ) = 

3.014 

IPO  * 

. 3607 

X/R(C>  = 

’.’ll 

90S 

voltac-s 

PHASE  VOL  T AGES 

BUS 

V(M1G) 

ABC 

1 

. 97?  1 

.98  ,9«  1.01 

6 

. 9T33 

.92  1. OP  1.01 

3 

. . 0733 

.92  1.09  1.01 

5 

,0733 

.92  1.  00  1.  01 

( ) 


LINF  CUR',"mt«; 
LIME  FAULT (I) 

6 5 0.0010 

0 3 0.0000 

1 


LIME  S'JRn*MTS 
FAULT (I)  OM-A 
0.0010 
0.0000 


* FAULT  summary  for  9'JS  3 • 

* ZT»  ( 1?. 86 , 0.01)  ».U.  * 

* 23*  ( 0.00.  0.01)  o.U.  • 


THPFF-PM1S? 


PM4SE*5r0UN9  >HASF“3MAS* 


p.i.dh-soun3 


IF(MAG)*  .061,? 
X/R=  ,2?0 


BUS  YOLTAT-ro 
DUS  V (MAG) 

1 .9632 

6 • 825 1 

3 .O’OO 

5 • 8251 


IF (HAG)*  .0603 
X/R=  • ’26 


PHASE  Y0-T AGES 
ABC 

.or  .01  1.01 
.78  l.or  ,09 

.91  1.00  1.01 
.70  1. 07  .99 


I F (MAG) « .0910 

X/R*  . 472 
EF( A ) * 1.0000 
Er(9)s  .9171 
EF(C) * .5849 


IP(MAG>=  . 0334 
X/R*  .212 
£F(A ) = 1.0309 
EF(3>«  .4291 

•FC)s  .4291 
IF(9) * .2015 

X/R( 9) * 2. 120 

IFC)=  ,1751 
X/R(C) * 1.614 


LIME  CUPPPMTS 
LINE  FAULT (t) 
6 O 0.0000 

9 3 .054? 

0 


LIME  3 JRRTNTS 
FAULT (I)  PH-A 
0.0800 
. 0403 
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G 

1 

* FAULT  SUMMARY 

* 7C=  ( 0.00, 

* zr-=  ( 0.00, 

FOP  9JS  1 * 

0.01)  o.U.  • 
0.00)  P.U.  * 

THRFF-PHAF'" 

PHASS-S’OONO 

’HASE-PHASi 

PH-PH-3ROUN9 

lP(H«r,)=  .*’45 

x/r=  n.fti* 

IF(HAr,)=  ,0193 

X/R=  11, LI’ 

I r (HAG ) = ,384? 

X7R  = 8.985 

EF ( A) = 1.0000 
. EF ( 9) ? .5000 

ef  (C)  = .ftom 

TF{ HAG) * 1.092? 

X/p.=  17.501 

i F ( A ) = ,7?93 

EF ( 9 ) - 0.0000 
EF ( 3 ) = 0.0000 
rF(1)=  .7516 

X/P  ( 9 ) = l.fti.0 

IF(3)=  , 8034 

X / R ( C ) = .94? 

ftus  voltac.fs 
rus  vimas) 

1 0.0013 

ft  .0000 

0 .0000 

5 .onoo 

PHASE  VOLTAGES 
A 9 0 

0.00  .9-  .89 

0.00  .9'.  .89 

0.00  . 9-  .89 

0.00  .94  .89 

I ° 

LTNP  CURR'N-ft 
LINE  FAULT(I) 

ft  ft  0.«000 

ft  ft  0.0000 

1 

LIN;  CJRopNTS 
FAULT(I)  PM-A 
0.0000 
0.0000 

* FAULT  PUMMA9Y 

* Zr*  (12.8ft, 

* 7f,=  ( 0.00, 

for  9 US  5 * 

0.00)  “.(I.  * 

0.00)  P.U.  * 

TH9E““PMASr 

PHASE-G90UN0 

“HOSE-PHASE 

PH-PH-3R1UN9 

ft 

IF  (HOG)*  . 0505 

X/R-  .111 

IF (MAJ) s ,055ft 

X/R=  .397 

I F ( HAG) « .0811 

X/R=  .537 

EF ( A) = 1.0000 
EF(9)s  .8803 
EF(C>«  .5270 

IF( HAG) * .0315 

X/R=  .271 

•F(A)=  1,0441 
EF( 9) ■ .4050 

EF(3) = .4060 

IF(3)s  ,1611 
X/R( ft ) = 2.044 

IF(3) = .1389 

X7R(C>=  1.44ft 

! ■ 

ftOS  VOLTAG’S 
BUS  VdAD 

1 .9*70 

6 .7170 

3 . P’ftft 

9 . 8»’ft 

PHASE  VOLTAGES 
A ft  C 

.97  .99  1.01 

.71  1,10  .99 

.91  1.00  1.01 
.77  1. Oft  1.00 

• 

LINE  CURPpNTS 
LINE  FAULT»I) 

ft  ft  ."00ft 

5 ft  .0005 

LINE  CURRENTS 
FAULT(I)  ph-a 
.0555 
.0555 

0 

1 
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Example  Problem  3 

This  example  illustrates  the  use  of  the  LINDATA  input 
routine  and  both  the  Load  Flow  and  Short  Circuit  routines. 
Fig.  A-22  is  the  one-line  diagram  of  a system  specifically 
designed  to  test  the  total  PDSAP  program  (Ref  2:258).  This 
example  highlights  the  capability  of  the  PDSAP  program  to 
utilize  information  other  than  impedance  values  to  make  a 
system  analysis. 


O 
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Fig.  A- 23.  Data  Card  Format,  Example 
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nnn-?  OISTRIPJTIOM  CVST  {M  ANALYSIS  ppCC.paM  ( "*T  5 ar»> 
UP'  1 PRINTDJT 


sxampl"  “ro^l"**  »3 
LOAD  FLOW  AMD  "WORT  CKT  ANALYSTS 


•***  program  cdntpol  constants 

COM*  ? 

I ND=  0 
OJT-  1? 

CM6=  -0 


9ASE  KVA 

toomo.  <v* 


**•  PROCRA1' 

FR  OUfMCY 
60.  H7 


PARAMETER  CONSTANTS 


TEMP7  PA  T JR7 
2!i.  0-i.  C 


£4  7TH  RESISTIVITY 

103.  9ET7R-3MM 


* 

* 

t TIDATA  SU3C0JTTNF 

• 

* 

• 

ASSEM9LE0  INPUT  LINE  OATA  (°"R-UMrT) 

CONDUCT 0=  NO,  1 

FROM  - TO  RE (7) 

1 7 .0132 

IM(7) 

. 0293 

Rt (70) 

« 02AO 

IN  ( 7 0) 

. 1036 

CONOUCTOP  NO,  2 

FROM  - TO  R7(7> 

1 S .0100 

I i (7 ) 

. 0222 

RE  (70) 
.01*7 

IM( 7 0 ) 

. 0795 

TRANSFORM7?,  LTC  NO,  1 

FROM  - TO  RE  (7) 

5 9 0.0000 

TAP  TIN  TMY 

1.00300  . 90000  1.10000 

I M ( 7 ) 

, 0293 

COM EC  CODE 
<5 

RE (70) 

0. 000A 

IM( 7 0) 
.0293 

TRANSFORM7-?,  AUTO.  NO.  1 

FROM  - TO  REC7) 

5 0 0.0030 

TAP  OOMEC  OODF 

1.000  l 

IM(7> 

. outo 

PE(70) 

0.  000) 

IM(TO) 

0. 0000 

t 


108 


GE/EE/76-43 
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conductor  no.  * 

FROM  - T9  RE  (?) 

4 5 .0295 

I M ( 2 ) 

. 0154 

°E (70) 

. 0781 

I1(?0> 

.0412 

conductor  no.  4 

FROM  - TO  RE  <71 

2 5 .014? 

IKZ) 

.0344 

RE<70> 

.0257 

IM( 7 0 > 
.1170 

CONDUCTOR  '13.  5 

FROM  - T9  RE (7) 

2 » .022? 

19(7) 

. 0502 

RE(ZO) 

.0413 

IHZO) 

. 1779 

CONDUCTOR  >13,  5 

FROM  - T3  RE(Z> 

5 T .0157 

IM  (?) 

. 0370 

RE (20) 
.0304 

IHZO) 

.1309 

TRANSFORMER,  FIX'-O  MO. 
FROM  - t3  RE(7) 

7 9 0.0000 

1 

IM(7) 

. 1485 

RE(ZO) 

0. 0000 

11(70) 

. 1485 

TA^  C9NrC  COD" 
1.  00010  2 


M** 

SUMMARIZED  TM^UT  9US  OSTAI  PER-UNIT 

LISTED  1Y 

ASCENDING  DUS  MKMDERS 

POWER 

NO. 

TYPE 

V(1AG> 

V ( ANG-DE 5) 

REAL  REACTIVE 

Kill) 

0(H<> 

1 

3 

1.090 

0.0000 

0.00000  0.00000 

0.  0000 

o.onoo 

2 

1 

1.000 

0.0000 

-.20000  -.30000 

0.  0000 

0.0000 

3 

1 

1.  000 

0.0000 

-.20090  -.15109 

1.  0000 

0.9000 

4 

1 

1.  000 

0.0000 

-.50000  -.75000 

0.  0000 

0.0000 

5 

1 

1.  010 

0.  0000 

-.25000  -.20100 

0.0003 

0.0000 

6 

1 

1.000 

0.0000 

-.30000  -.30000 

1.  0000 

0.0000 

7 

1 

1.000 

0.  0000 

-.30000  -.15100 

1.  0000 

0. 0000 

8 

1 

1.000 

0.9000 

-.41000  -.30000 

0. 0000 

0.0000 

9 

2 

1.000 

0,  0000 

1.50000  0.00000 

0.  0900 

1.3000 

+*•*4 

• 

• 

m 

»4»«M4 

»EORDEREO  9USLIS7 

RETURNED  BY  SUBROUTINE 

ORDER 

• 

• 

J 

1 4 

6 9 

9 2 5 7 

t 


109 


GE/EE/76-43 
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SOUPCr  INP290NC2  Oils  NO.  1 VOLTS  L-NKV)  55. 40  0.00 

3.PM  F lot T C'»’.*"NT<4MPS)  575,73  -1075.92 

PM-GNO  F»*HT  ;n??E*JT  < A 1®S  > 414.9*  -754.27 

foult  ’(omns)  -o.o  -o.o:  nejt  ziommsi  -o.o  -o.o 


SMO’T  CIRCUIT  IN»'JT  0AT4 


• SOPT"9  LIN"  IN<>UT  04T4 

• LISTCO  OY  4!'SCNOING  90S  NJMOr^s 


so 

29 

G 

9 

«2<70> 

IN  (70 ) 

• 

1 

•114552*01 

-.214912*01 

.477572*00 

.774152*00 

0 

9 

0. 

0. 

0. 

.’92632-01 

1 

0 

,114601*01 

-,?1491C*01 

. 4775  7E+00 

• ■'74152  + 00 

1 

3 

•179302*02 

-. 283F9E*  02 

,240492-01 

.103512*00 

1 

O 

•159352*02 

-. 374342*02 

,182192-01 

.78*962-01 

2 

5 

.105092*02 

-, 245992*02 

.265922-01 

.115932*00 

2 

7 

.747352*01 

-. 16"20E*02 

.412832-01 

.177872*00 

3 

1 

.120302*02 

-. 283592*02 

.240492-01 

.103612*00 

O 

O 

.*65792*02 

-. 13f 27£+02 

.780522-01 

.411552-01 

5 

2 

.105002*02 

-.245992*02 

.265922-01 

.115932*09 

5 

4 

.*55792*02 

-.130272*02 

.780522-01 

.411552-01 

5 

6 

0. 

-.215322*02 

0. 

0. 

5 

7 

.101512*02 

-. 22h6 1E*02 

. 30365E-01 

.130832*00 

5 

9 

0. 

-.341732*02 

0. 

.29*632-01 

6 

1 

.169352*02 

-.37434E*02 

.182192-01 

.754962-01 

6 

O 

0. 

-. 2153?E*02 

.100002*11 

0. 

7 

2 

.747352*01 

-. 16520E*0* 

.412832-01 

,177972*00 

7 

5 

.101312*02 

-.224512*02 

• 30385E-01 

.130832*00 

7 

0 

0. 

-.67*932*01 

.100002*11 

0. 

$ 

7 

0. 

-. 67?93E*01 

.100002*11 

0. 

O 

0 

0. 

0. 

0. 

.292632-01 

O 

0 

0. 

-.341732*02 

.100002*11 

0. 
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9 

9 

°OH'P  DISTRIBUTION  c YST EM  ANALYSIS  PROGRAM  (POSAP! 

9 

9 

T'.or  2 ORINTO’JT 

example  PRO?LrM  4 3 

* 

9 

LOAD  FLOH  AND  RHORT  CKT  ANALYSIS 

9 

9 

»»»»»» 

•***  PRf);p?M  CONTROL  CONSTANTS  **♦* 

CON=  5 
INP=  0 
0*JT  = 1? 

CMG=  -0 


•*»  poos?#**  parameter  constants 

BAKE  KVA  rR:OUENCY  TEMPERAT  JP“  EARTH  RESISTIVITY 

100000.  KVA  GO.  HZ  ?5,  DEG,  C 100.  METEP-DHM 


RESULTS  OF  FAST  OSCOUPLEO  LOAD  FLOW  ANALYSTS 
ALL  MAGNITUDE  VALUES  ARE  »ER-UNIT 
SYSTEM  HAS  R PUS'S!  1 A?"  TY°£  ?. 

mumper  of  txmcs  load  ruses  hill  de  cmansso<nic> = -o. 

COW  °GENC“  TOLERANCES! 

PTOL“  .00100 
OTOL*  .00100 


****  PUS  10.  9 EXCEEDED  ITS  MAXIMUM  0 LIMIT 

0 SPiCIFI'OJ  1.3000  PEP* UNIT, 

0 CALCULAT'D!  1.512Z  PIP-UNIT. 

AMOUNT  EXCEEDED!  .93  P'»CENT, 
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cvsttm  summatv 

Clives  "NO  £ 09TAIV73  INt 
5 3‘lTA  Thrift  (\ >n 
<5  3 LTA  V I TLTA  T T3MS. 

mis  M3, 

PEAL  REACTIVE 

•143, 

1 

' .9’55t 

t.  16154 

5M.'tlL4T£3 

L IN-  FLOWS 

• 

• 

* (Th? 

lin: 

rL1W5  US 

" 0ECIME3  ^OS  IT  X V £ WHE‘I 

FLOWI* 

5 O'lT  FROI 

THl  1JS>* 

» 

LIM 

. 

POWER 

LIME 

3OWER 

FROM 

to 

REAL 

REA'TIVE 

ER3M 

TO 

REAL 

REACTIVE 

1 

3 

.20011* 

. 13196 

J 

1 

-. 20039 

-. 15000 

1 

6 

.50019 

» 7’ 775 

5 

1 

-. 49’ 3 6 

-. 75491 

2 

5 

-,3555i* 

-.37255 

5 

2 

.75007 

. 31294 

2 

7 

,15555 

.07255 

7 

2 

-.15499 

-.07086 

4 

5 

-.1*5910 

-.7!  964 

5 

4 

,5?7’3 

.75417 

5 

6 

-.19236 

-.4*306 

6 

5 

. 10236 

.45491 

5 

* 

7 

.5544'* 

.44610 

7 

5 

-.54514 

-.42756 

5 

9 

-1.50000 

-1. 35233 

9 

5 

1.50000 

*.45296 

7 

a 

.40000 

. 34642 

5 

7 

-.49000 

-. 30000 

• •**1 
♦ 

* 

♦ 

OUTPUT 

9US  04  T4 

»OWI 

R 

NO. 

TYPE 

MIME 

V (MAG) 

V (ANGOgG) 

TEAL 

REACTIVE 

1 

3 

M.OH4 

i.ooon 

0.  0000 

.701 ’.3 

,92561 

2 

1 

F1XTR3T 

.93*0 

-1.  1754 

>oono 

-.30000 

3 

1 

9RAV3 

. 99’9 

-.  2232 

-.21001 

-. 15000 

4 

1 

"CM3 

. 9277 

.1930 

-.50000 

-.75000 

5 

1 

>*LTA 

. 9563 

-.  7434 

-.25000 

-.20000 

6 

1 

CMARLIE 

,9776 

-.1940 

-.30000 

-. 30000 

7 

1 

50L* 

. 9293 

-1.5915 

-.31900 

-• 15000 

0 

1 

MOTEL 

.9750 

-5.7585 

-.40000  • 

-. 30000 

9 

2 

TMOIA 

,9917 

1.9910 

1.50000 

1.49286 
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OIITsir  TRAMSFC^ER  TATA 


'4  S9  TAP  TAPdTHI 


TAU’AX) 


<5  5 l.ooono  -.ooooo 

~>  9 1.00000  .90000 

’ 8 i. ooooo  -.ooooo 


-.00000 

1.10000 

-.00100 


RESULTS  OP  SHOOT  ClOOUt  T ANALYSIS 
ALL  VALUES  A IE  P'R-JVIT 

pyctiM  has  o ur"s.  "aolt  eon  (sci’)  r * -o  . 
there  are  i s'josvstr-  stjoiesusy?)  . 


* SinSY'T-H  STIJOY  *n.  1. 

« NJHOtP  OP  "JSSES  IN  THTS  S’STEH  TS1  7. 


1 


• PAH.T  SUUARY 

FOR  US  1 • 

* 7P=  ( 0.00, 

0.00)  P.U.  • 

* 7*,r  ( 0.00, 

0.00)  °.U.  * 

THOEC-PHASP 

PHASi-r.30U)40 

ohasp-phas: 

oR-PH-SROUfn 

IF  (MA  G ) = 2.1.359 

I F ( MAC ) s 1.7743 

IF (HAG) = 2. 109“ 

IFMAG>  = 1.3458 

X/R*  1.874 

X/9=  1.’74 

X7R*  l.S’4 

</R*  1.564 

EF ( 4) = 1.9000 

- F( A ) = 1,2742 

£P( 9) = .5000 

EF(3)  = 0.0000 

EF(C)s  .5000 

EFC)  = 0.  0000 
IF  ( 3 ) = 2.2467 
</R<0>=  5. TO  7 

IFC)=  2.1812 

1 • 

<71(0=  .965 

* FAULT  StJHNARY  FOR  HUS  9 * 

* 7r*  { 0.90,  0.00)  ».U.  • 

* zs*  t o.oo,  o.oo). o.u.  * 


TM9E7-PH4FF 

PHA3"-3»9UNO 

»HASE-UASE 

P-I-PH-3R0UN9 

IF (HAG)*  1.9881 
X/R*  2.263 

I F ( MA S ) s 2.9047 
X/R*  7.335 

IF (HAS ) - 1.721’ 

X/R*  2.263 

-F(A)s  1.0000 
£F(9)=  .5000 

EP(C)*  .5000 

IFMAG)*  5.3153 
X/R*  2.551 

EF(4>*  .1576 

EP ( 3) = 0,0000 
EF(3) * 0.000" 

I F( 1) * 3.1339 
X/R( 9 ) = 1.41? 

IF( ’ ) * 3.2571 

X/R(C>=  .185 
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Example  Problem  4 

This  example  illustrates  the  use  of  the  LINEZ  input 
routine  and  the  Short  Circuit  routine.  This  example  was 
adapted  for  use  with  the  PDSAP  program  to  show  the  capabil- 
ity of  the  program  to  calculate  line  currents  (Ref  7:2-34). 
Fig.  A- 24  is  the  one-line  diagram  of  the  system.  System 
base  for  this  example  is  50  MVA.  Note  that  the  example  has 
a three -winding  transformer  and  the  program  equivalent  is 
shown  in  Detail  A.  Fig.  A- 25  illustrates  the  format  and 
order  of  the  data  cards. 
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Fig.  A- 24.  System  Diagram,  Example 
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Fig.  A- 25.  Data  Card  Format,  Example 


GE/EE/76-43 


* ni«"?  TrsTRinjTinN  s vst **i  analysis  o-’nr.ns*  c*o?#9» 

* T't,r  l !»RINT9IT 


t«M!>Lc  POORL^  #4  • 

S-ORT  CIRCUIT  AmaLYSI«SCH£StINSHO'ISE)  • 


• PROGRAM  CONTROL  CONSTANTS 

CON=  3 
IN’*  1 

OUT*  4 

CHS=  -0 


OASf  KM 

somo.  K V* 


pro;»»"  parameter  constants  ••• 


FR^OMENCV 
SO.  M7 


tehpe pat  ip- 
75.  o'";,  r. 


EARTM  REST  ST  I VI  TV 

100.  NETER-DMN 


LINE7  S'JOROJTINi 

ASSEMni.ro  INPUT  LINE  CAT  A 

(p:p-untt» 

CONOHCTOO 

NO.  1 

FRCN  - T9 

RE(Z)  IM<7) 

RE  (70) 

IN(70) 

A *■ 

0.0000  . 1 240 

0. 0001 

. 4333 

conductor 

NO.  2 

CRON  - TO 

R"<7>  INC7) 

REC70) 

IM( 70) 

3 A 

0.0000  .0413 

0. 0000 

. 1446 

CONDUCTOR 

NO.  3 

FRCN  - T*» 

RCCZ)  IN  1 7) 

RE ( 70) 

IN( 70) 

3 3 

0.0000  .1653 

0.0000 

.5705 

TRANSFORMER,  FIXED  NO.  1 

FRCN  - TO 

»E<7>  IN (7) 

RE(Z0) 

INC  7 0) 

3 1 

-0.0000  .0798 

0.9000 

.0798 

TA»  '•ONES  CODE 

1.00000 

4 
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TnV|»rn,''V(  VTXrn  NO. 

vi-m  - *i  •’-:(?> 

* * l,1fl"1 

TA®  “0"i 

l.omo  i 


2 

ini*) 

. »0H 


9"l*0) 

1.0101 


III x 0) 

. 2000 


vtx'9  no. 

re>cn  . 'i  *51*) 

S • 0.0000 

TA®  SINfC  sole 

1.0010"  I 


X 

IMI7) 

. 0667 


95170) 

0.0001 


IN170) 

. 0667 


( 


TiMNCri 

-i*’,  vnro  no. 

L 

corn  - 

T"  ®r 17) 

I M ( 7 ) 

9EI*0) 

IN  1 * 0 ) 

5 

* 0.0000 

1. 1571 

1.0003 

l . 1571 

▼ A* 

in-irr  cm? 

• 

"0110 

4 

T®1*rvo5N*»t  vrx-f)  NO. 

f; 

V®  1“  - 

TO  9"  I 7) 

INI*) 

95170) 

INI70) 

t 

7 0.0103 

.3314 

o.oooo 

.3114 

T A ** 

“ones  -o**: 

101OP 

2 

---®,  r»:i  NO. 

*> 

r,r»  . 

*1  »EI*) 

I N 17  ) 

®EI70) 

INIZ0) 

l| 

i o.oooo 

. 2299 

0.0000 

.2299 

*** 

•(VIES  Sin® 

00"0« 

4 

••• 


SNI)’*  CW»IT  IN’JT  OATA  • 


v*‘io~‘~  |«»-n«r;  vis  *io. 

V>u  VAULT  r'PT^'it  (A"PV> 
VOMIT  - l**»r.|T  IAM®S 
r»*jtr  *iomn-)  -o.o  -o.oi 


1 VOLTS  L-NKV) 

0,00  -1010.60 
l 0.00  -0011.60 

Nt’lT  7 1 OH  NS)  -1.0  -0.0 


6.91 


0.  00 


«tO')«Tr  I«“rnlN';r  nils  NO, 
1-»m  vault  ‘•■J9-»-nT  I \ -*«»«:* 
PM-r.un  rj*n_*  «.|»»r*lT< 
vomit  t i omnh  „n.o  -i.oi 


2 VOLTS  L-NKV) 

0.00  -2749.11 
I 0.10  -2749.  JO 

NfJT  7I9MMS)  -0.0  -0.0 


5.91 


0.  00 


SO*M»®®  INornlNC"  " IS  *10. 
J-®M  PAUL*  - |-»»rNT  lA*"’*) 
PM-CN®  VAULT  2'l»»;NTl  ANPS 

vault  •»(OHN«-)  -o.o  -n.nt 


6 VOLTS  L-NKV)  19.11 

0.00  -1761,08 
) 0.00  -17J1.0* 

HUT  2IOMMS)  -1.0  -0.0 


0.00 


SQii«cr  tm(,,:"*n''':  ms  no, 

V®M  V HU  T 'Jl’-NTUIPII 
VM-r,N"  VAULT  C')V»r>ITI»“VS 
VAULT  MOUND  -0.0  -1.0! 


T VOLTS  L-NKV)  6.91 

0,00  -*672,90 
) 0.00  -2672,30 

N*'JT  2IOMNS)  -0,1  -0.0 


0.00 


SOU®TC  IH*rnANST  IMS  Ml*. 
J-»M  VAULT  r l®»"NT lA^PS) 
PH-r.NO  VA'ILT  “•INVENT  I AMPS 
VAULT  TIOMN1)  -0,0  -0.0! 


1 VOL  *S  L-NKV) 

0, 00-10023.90 
) 0.00-100*3.40 

Nr  JT  71  OHMS)  -1.0  -0.0 


6,91 


0.00 


1 
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nnur-t  DTSToTIUTTOM  SYSTEM  ANALYSIS  “lOGRAH  <POSAP> 
T»»C  Z PRINTOUT 


- por)0LrM  0U 

SM3»T  riPpilIT  '-NALYSI  S ( HESTINSHOUSE) 


• ***  po'1^9'  u CONTROL  ED'ISTANTS  ••*» 

CON*  3 
INP=  1 
OUT*  It 
CHO=  -0 


BASE  <VA 
50990.  XV» 


**•  PP33RAH  “APAUCTER  CONSTANTS  *•» 


PREOUENCY 
f.O.  HI 


TEMPERATURE 

as.  D.ES.  C 


EARTH  RESISTIVITY 

100.  METSR-3HM 


RESULTS  O'  SHORT  CIRCUIT  ANALYSIS 
ALL  VALUES  ARE  »SR-jNIT 
SYSTEM  HAS  8 RJSES.  PAUL!  :03E»SC0»>  IS  -0 
THERE  ARr  -n  SUBSYSTEM  STJDI ES <ISY S> . 


AUTOMAT!'  SHORT -CIRCJI I STUDY! 
ENTIRE  NrT40=>X  STUDY  HILL  RE  COHPLET ED 
IN  1 PASSES  3C  SHORT-CIRCUIT  PROGRAM, 


f 
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0 


• •'••ft.  ▼ r0»  ^ JS  1 • 

• »r«  » n.oo,  *.  oo»  »«u.  • 

• T.*  C I.*",  0.  01  > °,'J.  • 


TM»f'.PK1T 


Ml 


®-t-pM-'-,OUN9 


Tr<M«r.)c  -.nut 
K/4*  9 


Trl,Y»'.)*  '.1393 

*/«>*••«••••* 


6.101.’ 

379«  «? 

£F(\}*  l.nooo 

*:- ( "»»  * .500! 

.coon 


IF(1»r,)i  4.  9**37 

«/?**•••••** 
•F(\>*  1.2179 

■ rnts  o.oono 
•:h:is  o.oono 
rFM)  * 6.  4 ’0 7 
</®(9)*  3,013 

IF(!)»  6.4307 

K/2CC1*  3.013 


31(3 

VOLFIO'-p 

®nas" 

volt*f,:s 

sir. 

V<M»43 

a 

4 

r 

l 

0.  nnoo 

0.00 

1.14 

1.16 

3 

.2955 

.66 

.43 

.93 

2 

.4*74 

.7? 

.r* 

.94 

4 

,3593 

.69 

. 17 

.93 

6 

.5446 

.4" 

.95 

6 

.0531 

.93 

• 43 

.98 

7 

.*’49 

.42 

.93 

.96 

a 

.6475 

, 93 

.95 

.96 

LTMF  C1I4?'*1T5 

lin;  cu*?£hts 

LIN5 

FA«l  T C T> 

fhilth)  PM-a 

3 

t 

3.7141 

1.9062 

3 

? 

.4544 

.3140 

4 

3 

1. r309 

,7441 

5 

3 

1.5319 

. 7441 

* 

4 

1.5309 

,7441 

6 

4 

1.7444 

, 6F44 

7 

6 

,»446 

.1119 

7 

6 

.043? 

.0307 

a 

5 

1.4437 

.7139 

1 
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C 


• e'VILT  SIM9A9Y  FOR  9)5  7 * 

• 7r=  ( 0.00,  0.00)  ",U.  * 

• 7Ja  ( 0.10,  0.10)  o.ij.  • 


€> 

“HISE’-'HOS:  p-*_PM-G70'JrO 


IF  f *1A  G )r 
X/R=  f 


r’HSST-G’O'irn 


IF<MSr,)i  p.nio 

X/or«. ...... 


IF(HAG)a  I.Fl’I 
X/Ra  R 

-:f(0)=  i.oooo 

EFO>=  . 5000 
*F(C>*  .5000 


Ic< ifl  G) = 1 , 50 ’5 

K/Rr*****»** 

EF(  A)  = l,  U45 
EF<9) a 0.1000 

E F ( I > a 0.1000 

rm>=  1.5077 
</R<9)=  4.570 

IFC)a  1.5977 
</R(C)a  4.677 


9 US 

voltat-i 

DMAS 

r Y3LTA5::S 

WJS 

VMAG) 

A 

9 

C 

1 

.4709 

. OS 

.9' 

.97 

3 

.05 

.95 

.96 

7 

0.  oooi 

0.  00 

l.?» 

1.79 

4 

• 6705 

. 06 

.O' 

.97 

5 

.7*21 

.90 

.9* 

.90 

4 

.9144 

.97 

.99 

.99 

7 

.0"’l 

.96 

. 99 

.99 

a 

• 7n09 

.9? 

.91 

.98 

LTNF 

ri)RarMT<? 

L INF 

9'JR">rNTS 

LINr 

FAUt  Til) 

cAllLT(I)  ph- 

1 

1 

1.0904 

.1958 

3 

9 

2.9141 

1.0501 

4 

9 

.OflTq 

.’?7? 

9 

1 

. *0  79 

.1277 

9 

4 

.90-9 

.9?  7? 

6 

6 

.’9SI, 

,7077 

9 

.1443 

. 05  77 

7 

4 

.n»75 

."115 

6 

.•710 

.1179 

1 


c 
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* FAII.T  S > • -1  <-t A R V 502  9'|C  3 * 

* 7 r=  ( 0.  00,  o.oi.>  °,U.  * 

* rr-=  ( o.oi,  o.io)  * 


TuoF*-P‘-t6f‘* 


TF(MA6>=  ’.Hn 
X/9  = P 


PHASI-OUtlNO 


IF(MA6>=  '>.7L?U 
X/R=»***»»** 


3M4«;r  _DH\ir 


IF(HA6)=  6.  SO'-I 
<72®  7 

;C(A)®  1,0000 

"r(1)=  .5000 

:*(;>=  .5100 


ON-PH-STOUNI 


IFMA6)-  11.1171 

* 

£=■(!)=  .’101 
■r(1(:  0.0000 

•FC3)  = 0.  0001 
I F<  3 ) = S.71’9 
</7<9)s  1.211 

IF( 3) = 1.0131 

*/1(C)=  1.217 


9115 

VOLTOF.-i 

PMAS’ 

tfT.  TAG -5 

9US 

VMA'0 

A 

9 

r». 

t 

.’101 

.30 

.19 

. 1° 

3 

1. 1001 

O.oo 

.9- 

.92 

? 

. 1*51 

.36 

. Rc 

.11 

4 

, 0*91 

.10 

.99 

.92 

5 

.7*97 

.41 

.9’ 

.9’ 

6 

. ’997 

.14 

.9'- 

.96 

7 

.’55!. 

.02 

.95 

.96 

8 

.1.919 

.61 

.9’ 

.92 

LTNF 

CU9FrMT5 

LIN* 

CUR’* 

NTS 

LTNF  Fai)tT(T)  FAIILT(I)  ph-A 


3 

1 

2. 5399 

2. 0717 

3 

* 

.9312 

.7319 

4 

3 

? . 1 ’ 67 

1.9739 

9 

3 

2.1 ’62 

1.7379 

5 

4 

7.1 ’6? 

1.1379 

6 

5 

1.9179 

1 , 50  60 

’ 

5 

.7516 

.7759 

7 

6 

,0119 

, "’07 

8 

™ 

2. oi’9 

1* • * ’R 
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* FA'JLT  SUMNARY  FOR  TJS 

» ’-s  ( o.o",  o.  on-)  3.0. 

* y~-=  ( o.oi,  b.ooi  °.o. 


4 * 


PHAS"- j’OONO 


o-l-PM-GRDUNO 


TP(MAr,>=  ’.IT’ 
X/o=  P 


5.7776 

1(  /P=*»»  ¥ # R * * 


IF(HAG>=  8. 773’ 
X7R  = P 

EF(IW=  1.  0000 

rF(0)=  ,5000 

5e(C)=  .5000 


rr<1AG>=  5.3050 
X/Rs***»**** 
•FH|S  1.  0550 
TF(3)s  0.0000 
5F(0)=  0.0000 
I F(  0 ) s 7.  1051. 
X/R(1>=  1.050 

rF(0»=  7,  005', 

X/R(C)=  1.950 


9115 

VOLT  0 r "5 

P||»cr 

VOL  ’ 

ag-:s 

BUS 

vihgi 

A 

9 

c 

1 

.3467 

.51 

.91 

.91 

3 

.1”5 

.75 

.94 

.94 

7 

. ”54 

.56 

. 91 

.91 

4 

0.  onoo 

0.  00 

1.07 

1.  03 

5 

. 7’ •* 0 

.49 

.9' 

.96 

6 

.8*44 

.88 

.97 

.97 

7 

. ”11 

. 55 

.9’ 

.97 

0 

.5108 

.49 

.97 

.93 

LINr  CP.RPVTI 

L I Mr  C JR3" NTS 

LI’IF 

CAHLT  (T) 

FAULT (I)  PH-A 

3 

1 

?.  1 ’99 

1. 3668 

3 

7 

.7698 

.4679 

4 

3 

4.1 774 

4.797? 

5 

7 

1 . ’ o 46 

.7973 

5 

4 

7.  0 ’4? 

7.4954 

% 

5 

1.8995 

1.1771 

7 

5 

.7477 

.3147 

7 

6 

• 1 9T8 

.0551 

9 

5 

7.0793 

1,7786 

' 
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( 


X 


* CAIJ_T  S1IM«S3V  FO?  9JS  5 » 

* 7.*-  < o.oo,  o.io>  o.u.  « 

* 73*  ( 0.  01,  • 0.  00)  ".U.  » 

THPEI-PMA**  PWASe-r.’PIIHn  =>HASF-n9ASE  PH-PH-319UN9 


IF  ( MO  r, ) = 9.6600  Ic(M0r,)r  P . 9786  IF(MJ-,)=  8.7707  IFMAS>  = 8.4109 

X/°-  ° X/ »=•*•**«•*  X/7=  R </R** ******* 


£cca>=  l.nooo  *6<4)*  1,060? 

FF(T)=  .6000  :Fm=  0.0000 

£- (C) * .6100  £F( J) = 0.000" 

IF(  7)  = 9.  7757 

</RCO>*  1.969 

I F( 5) * 9.?757 

*/9<0>=  1.961 


6116 

voltac- 6 

SHA6E 

voltage 

BU6 

V (M  AC) 

A 

n 

C 

1 

. 7«<>9 

.6? 

.9’ 

.9? 

3 

, ?»'6 

.44 

.97 

.93 

? 

. 3’1» 

.61 

.9? 

.9? 

4 

. 1'06 

.33 

.93 

.96 

5 

0. 1OP0 

0. 00 

1.  07 

1.03 

6 

.6B’t 

.80 

. 96 

.96 

7 

.6779 

.77 

. 96 

.96 

8 

.?1  T4 

.61 

.90 

.90 

LTMF  CUP’r'IT’? 

LINE  CU&pf  MT6 

LIMC 

FA1IL  T Cl ) 

*=■  A 1 IL T ( T > “H-A 

3 

1 

?. " 7 79 

1.7691 

3 

7 

.7185 

.4484 

4 

3 

1.7763 

1.768? 

5 

7 

1.7763 

1. 768? 

6 

4 

1.7763 

1.768? 

6 

8 

7.9891 

1.856? 

7 

6 

.6476 

.7417 

7 

6 

.1404 

.0876 

8 

8 

3.7809 

?.9’47 

I 
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* FAULT  SUM4AOV  FOR  7US  5 • 

* zc=  < o.oo,. o.no)  r.u.  • 

* 73=  < o.no,  0.00)  P.l).  • 


iMPPp-PMas'- 


X/9=  o 


pM»sc-r.’ouun 


IF(MAG)r  1 7,  0 1 57 


pHOS'.-Buas* 


IF (HAG) = 11.5507 
X/9*  7 

"(*)=  1.0000 

£F(7)S  .5000 

Sr(C)=  .5000 


4 


1US  VOL  T 3 5 ” 9 
«US  V(MAF) 

1 .*”7 

3 .*010 

2 .7B47 

4 ,6»’0 

5 ,'F?7 

6 o.nnoo 

7 . 74*4 

0 .*'77 


LIME  CltP7rMT7 
LINE  Fftt)LTm 

3 1 .'NO? 

7 ? .711,5 

4 7 .*"’4 

5 7 .40*4 

5 4 .*074 

6 5 2.444? 

7 0 . 1 0 77 

7 5 .4108 

8 5 1.4?'? 


PHASE 

V3l 

TAG'S 

A 

9 

C 

.84 

.95 

.98 

, 30 

.95 

.95 

.33 

.95 

.96 

.73 

.93 

.95 

.74 

.9'. 

.94 

0.00 

1.0* 

1.05 

.61 

.9’ 

.9? 

.79 

.or 

.95 

LIN"  G’J9»fnts 
FAULT  1 1)  BM-A 
.5338 
.1  888 
.3*1? 
.741? 
.761? 
1.4667 
.1114 
.5461 
,0557 


PH-PH-69OUN0 


IP(1A6)=  10.9163 

r/;3. ....... 

£F( 4) = 1.0314 
iF(7)=  0.0000 
•FO*  0,0000 
IF(J) *12.79?? 
*/?<9>*  2.1?0 

IFO>*  1?,  79?? 
(/UCIt  ?,  120 
»»**»*»»»»•*»»»» 
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• FAULT  OIIOMA “V  FO3.  9'J*  7 • 

• 7Fe  ( 0.09,  0.91)  °.U.  • 

• 76  = ( 0.99,  0.991  3.'J.  • 


I 


THPF'-oHS'-* 


TF<«A6>=  3,0337 

*/».=  3 


PHAO'-G’OUNO 


TF(M«f,»=  2.134? 

X/o=***»**»* 


’HASF-'MAOi 


IFflAGl*  3,4’  S 
X/*=  * 

- F ( A)  = 1,0999 
£P(9)«  .9000 

cF(Cl*  . 5909 


o-l-PH-GOUN? 


IF( SA  G I = 1.4515 

K/O...MMM 

EF(A>  = 1.3154 
•r<3>  = 0.9990 
£FC1  = 0.9009 
t F ( 3 ) x 3.5952 
</».(  81  = 4.69? 

IF<;)  = 1.905? 

</9<C>=  4.632 


OttO 

VOLT  A Gr“ 

PHASE 

VOLTAGES 

bus 

v(Hsr.) 

A 

3 

C 

l 

,007? 

.07 

.93 

.99 

3 

. !!«»' 

.05 

. 03 

.99 

2 

. 4945 

.07 

.99 

.09 

4 

. 8’49 

.05 

.93 

.09 

5 

.8491 

.95 

.03 

.39 

6 

. 8065 

.03 

. 9* 

.98 

7 

0.  0"19 

9.  on 

1.25 

1.29 

6 

.8811 

.96 

.09 

.99 

LINE  CIR30JT8 

LINE  COP°E  NTS 

LINE 

FAltLT(I) 

FAULT(I)  PH-A 

3 

1 

.’0  89 

.1111 

3 

2 

.1932 

.0392 

% 

3 

.’991 

.0752 

5 

3 

.2991 

.0752 

5 

4 

.2031 

.0752 

6 

5 

.1894 

.9649 

7 

5 

.7330 

.2635 

7 

6 

2,1147 

,7603 

8 

5 

.4053 

.1781 

M 


mm 
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* FAULT  F09  I'lS  4 * 

* 7f  = ( Ml,'  f).  10)  O.l).  • 

» 75=  ( 0,01,  0.01)  P.'J.  • 


IF(M4r.i=  4.=9’4 
X/9  = o 


PHflSi-r.o.O'lMO 


xo  ("45)  = 5.3475 

x/o. ........ 


»M8S"-oHA5i 


I F { 145 ) = 7.4457 

</9=  9 

£P(4)=  l.nooo 

00(1)=  .5001 

;p(c>=  • 5100 


°-i-PH-S90inn 


IO(1AG>=  9.0114 
<79= ........ 

*r(4)=  i.?or. 
*0(1)=  1.0001 
ioj;>.  n.1010 

IFM)  * 7.4591 
<79(9)=  7.950 

IF(0  = 7,4591 

<71(0=  7.951 


905 

YOLTAm 

°H4S* 

YOLTAGrS 

WJS 

V(94 5) 

A 

9 

1 

.0711 

.79 

.9- 

.95 

1 

.MS-' 

.73 

.9' 

,94 

7 

.5o  = l 

.78 

.97 

.95 

5 

.9145 

.71 

.94 

.94 

5 

. >955 

.55 

.9> 

.93 

6 

.7795 

.89 

.97 

.97 

7 

.7411 

.87 

.9’ 

.97 

8 

0.  0001 

0.00 

1.15 

1.15 

Lino  cU99r'iT9 

L IMS  CUTOUTS 

LINO 

CA t)4  T (t ) 

FAIILT(T)  OH-4 

3 

1 

1.53*1 

.7053 

3 

i 

.5151 

.>59? 

4 

1 

.9597 

.4773 

5 

1 

.9597 

.4773 

.5 

4 

.4597 

.4773 

6 

5 

7.1141 

1.1355 

7 

5 

.1454 

.1499 

7 

5 

.0949 

,0447 

8 

5 

4.4113 

7.1410 
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Appendix  B.  Program  Flow  Charts 

This  appendix,  updated  from  the  original  (Ref  2:56-84), 
is  included  to  provide  a more  detailed  examination  of  the 
program  flow  and  execution.  The  flow  charts  do  not  provide 
minute  details  of  every  program  element,  but  do  provide  the 
basic  functions  performed  by  major  programs  and  subroutines. 
The  format  is  also  non-standard,  and  was  devised  to  fit  the 
purpose  of  this  appendix. 

A few  points  about  the  format  are  included  to  aid  under- 
standing the  figures  that  follow.  Arrows  (4-  -*•)  indicate  pro- 
gram flow  and  branch  entry  locations.  The  capped  line  ( £ ) 
indicates  a statement  or  a group  of  statements  in  the  program 
that  perform  a specific  or  related  function.  The  text  fol- 
lowing the  capped  line  summarizes  the  particular  function. 
Numbers  indicate  actual  program  statement  numbers.  Figures 
B-l  through  B-10  on  the  following  pages  show  the  major  pro- 
gram element  flow  charts. 
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START 

4 

Write  Program  Title,  Read  Title  Card,  Program  Control 

Card;  and  System  Parameter  Card;  Write  program  headers 

on  output  files  (Tape  1 and  Tape  2). 

4 

JCall  Input  Overlay,  (BASIC,  1,  0). 

4 

Check  error  status;  If  input  errors,  GO  TO  950  (Error 

input  routine).  If  no  errors,  continue. 

4 

J Branch  to  statement  number  dictated  by  CON  variable: 

-*■  100  CON-1.  Normal  output  routine;  sorted  input 
line  data  printed  (see  statement  100). 

+ 20  CON-2.  Call  Load  Flow  Overlay  (LODFLO,  2,  0). 

Upon  completion,  GO  TO  100  if  no  errors,  other- 
wise GO  TO  950. 

-*•  30  CON-3.  Call  Short  Circuit  Overlay  (SHRTCKT, 

3,  0).  Check  error  status  upon  completion; 

If  errors,  GO  TO  950.  If  no  errors,  GO  TO  100. 

-►  40  CON-4.  Write  error  statement  and  GO  TO  950. 

This  number  reserved  for  future  program  use. 


Fig.  B-l.  EXECUTIVE  Routine  Flow  Chart 
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* 50  CON-5.  Call  Load  Flow  Overlay  (LODFLO,  2,  0). 

Upon  completion,  check  for  errors,  if  none  con- 
tinue, if  errors  GO  TO  950.  Call  Short  Circuit 
Overlay  (SHRTCKT,  3,  0).  Check  error  status 
upon  completion:  If  errors,  GO  TO  950;  other- 

wise GO  TO  100. 

-►  60  CON-6,  Write  error  statement  and  GO  TO  950. 

This  number  reserved  for  future  program  use. 

100 

-*•  T Statements  100-101.  Write  desired  data  on  output  file 
(Tape  1)  as  dictated  by  CON  and  OUT  control  variables. 
Rewind  appropriate  files. 

STOP 

950 

-*-T Write  program  error  termination  statement  on  output 

file  (Tape  2).  Write  sorted  line  tables  on  output  file 
(Tape  1).  Rewind  Tape  1. 

* 

STOP 


END 


GE/EE/76-43 


START 

4 

"Check  to  see  of  INP  value  is  correct.  If  not,  GO  TO 

10°. 

4 

I If  INP  - 0,  Cal!  LINDATA  Overlay  (BASIC  1,1). 

4 

£ If  INP  - 1,  Call  LINEZ  Overlay  (BASIC  1,  2). 

4 

"Check  if  Load  Flow  is  to  be  performed:  If  CON-1,  or 

CON-3,  RETURN  to  EXEC  program.  IF  I ERR,  error  status, 
not  equal  zero,  RETURN. 

4 

][Call  bus  data  input  subroutine  (BUSIN). 

4 

Ilf  errors  have  been  generated  by  bus  input  routine, 
RETURN  to  EXEC  program. 

4 

£Call  Subroutine  ORDER  to  reorder  bus  list. 

4 

RETURN  to  EXEC 

100 

-*-][Write  input  error  statement  on  output  file  (Tape  2). 

4 

RETURN  to  EXEC 
END 


Fig.  B~2.  INPUT  Routine  Flow  Chart 
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START 


Write  appropriate  assembled  line  data  header  on  output 
file  (Tape  1). 


one  record  (card)  of  line  data 


Check  if  last  line  data  record  (EB-0).  If  yes,  GO  TO 


Check  if  max.  number  of  lines 


Increment  line  counters 


has  been  exceeded 


VP  or  PH  equal  zero,  GO  TO  859 


J Branch  to  statement  number  dictated  by  ID  value 


211  ID»1;  Copper,  aerial 


212  ID-2;  ACSR,  aerial 


300  ID-3;  Cable,  underground,  aluminum 


400  ID-4;  Cable,  underground,  copper 


Transformer  (any  type) 


820  ID-9;  Series  Capacitor 


830  ID-10;  Series  Reactor 


Calc,  p for  copper  aerial  using  input  temperature; 
assign  F2  constant  value;  GO  TO  214 


B-3.  LINDATA  Routine  Flow  Chart 


GE/EE/76-43 


Fig.  B-3 , 


(Cont 'd) 


ft 
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C 

* 

f 


j 

l 


Using  table  look-up  (based  on  cable  size),  assign  pos . 
and  zero  seq.  impedances  for  aluminum  underground 
cables . 

"‘Statement  numbers  302-339;  table  of  alum.  UG  cable 
impedances . 

+ 

GO  TO  900 

I Using  table  look-up  (based  on  cable  size),  assign  pos. 
and  zero  seq.  impedances  for  copper  cable. 

[Statement  numbers  402-440;  table  of  copper  UG  cable 
impedances . 

GO  TO  900 

Increment  transformer  counter  (NOTR) . Check  if  max. 
number  transformers  has  been  exceeded;  if  yes,  GO  TO 
..  857. 

I Branch  to  statement  number  dictated  by  ID  (type  of 
transformer) . 

-*•  858  ID-1,  2,  3,  4,  9,  10;  error. 

-*■  860  ID-5,  6,  7 and  C greater  than  5;  error. 

-*•  518  ID-5;  fixed  transformer. 

Fig.  B-3.  (Cont’d) 
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♦ 600 

ID-6 ; 

autotransformer . 

- 700 

ID-7; 

Load  tap-changer. 

+ 800 

ID-8; 

phase-shifter. 

sir 

-►"[Calc.  fixed  trans.  pos.  and  zero  seq.  impedances  based 
on  size  (KVA),  and  high-side  voltage  rating  (KV) . 

"Statement  numbers  519-581;  fixed  transformer  impedance 
table/equations;  GO  TO  901, 

600 

-►"[Calc.  pos.  and  zero  seq.  impedances  for  autotrans; 

leakage  impedance  value  is  determined  by  fixed  trans. 

routine  (enter  at  statement  519). 

+ 

"Statement  numbers  649-667;  autotrans.  impedance  equa- 
tions ; GO  TO  901 . 

700 

-►T  Increment  LTC  counter  (NOLTC) ; If  max.  no.  of  LTC's 
has  been  exceeded , GO  TO  854. 

"Calc.  pos.  and  zero  seq.  impedances;  leakage  impedance 
value  is  determined  from  fixed  trans.  routine  (enter 
at  statement  519);  GO  TO  901. 

800 

-*•  T Increment  phase-shifter  counter  (NOPH) ; If  max.  no.  of 
phase-shifters  has  been  exceeded,  GO  TO  856. 

Fig.  B-3.  (Cont'd) 
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820 


830 


8S0 


900 


90] 


902 


Calc.  pos.  and  zero  seq.  impedances;  leakage  impedance 
is  determined  by  fixed  trans.  routine  (enter  at  state- 
ment 550)  . 

4- 

Statement  numbers  801-805;  phase-shifter  impedance 
equations.  GO  TO  901, 

Calc.  pos.  and  zero  seq,  impedance  for  series  capaci- 
tor. GO  TO  901. 

Calc.  pos.  and  zero  seq.  impedance  for  series  reactor. 
GO  TO  901. 

Statement  numbers  850-860;  error  statements  written  on 

output  file  (Tape  2) ; error  counter  incremented  (IERR) . 

4- 

GO  TO  210  or  RETURN 

Set  S»0  (for  per  unit  calculation);  Calc,  frequencey 

adjusting  factors  (for  cable  only). 

4- 

Check  to  see  that  both  pos.  and  zero  seq.  impedances 
are  not  zero.  If  yes,  GO  TO  853,  Call  PERUNIT  to  con- 
vert values  to  per-unit. 

4^ 

Statement  numbers  902-929;  write  assembled  line  data 
on  output  file  (Tape  1)  with  appropriate  data  header 
(conductor,  trans.  etc.);  store  data  in  appropriate 
tables . 

t 

Fig.  B-3. 
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(Cont  *d) 


GO  TO  210 


If  there  are  any  input  errors 
INPUT  program. 


(IERR  ? 0), 


RETURN  to 


Call  subroutine  LSORT  to  sort  line,  transformer,  and 
phase-shifter  tables  (after  all  line  records  are  in- 
put) . 

Statement  numbers  945-950;  Calc,  number  of  connections 

for  each  bus,  and  store  in  CONEC  array;  calc.  no.  of 

connections  (if  any)  to  ref.  bus  (IZ) ; Determine  no. 

of  buses  in  system  (not  including  ref.  bus)  (NBUS) . 

I 

RETURN 

END 


GE/EE/76-43 


START 

4 

Write  appropriate  data  headers  on  output  files  (Tape  1 
and  Tape  2) . 

10  + 

-*■  J Read  one  data  record  (card) . 

4 

"’  Check  for  last  time  data  record  (EB  *0);  If  last 
record,  GO  TO  930.  If  ID  = 5,  6,  7 and  C greater  than 
5,  GO  TO  800. 

4 

"’Increment  line  counter;  if  maximum  no.  of  lines  is  ex- 
ceeded, GO  TO  855.  If  VP,  ID,  or  PH  equal  0,  GO  TO 
858. 

4 

"’Check  for  zero  impedances  (pos.  and  neg.  sequence);  IF 
both  zero,  GO  TO  853. 

4 

T Branch  to  appropriate  statement  number  based  on  value 


of  ID: 

4 

-*>  20 

ID-5, 

6,  7,  8;  (Transformer  routine). 

- 30 

ID-9; 

(series  capacitor  routine) . 

- 35 

ID-10; 

(series  reactor  routine) . 

J Increment  conductor  counter  (line  is  aerial  or  cable) . 

4 


Fig.  B-4.  LINEZ  Routine  Flow  Chart 
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1 


Assign  pos.  and  zero  seq.  impedances  and  multiply  by 

line  length.  If  zero  seq,  not  specified,  zero  seq. 

equal  to  2.7  or  3.5  times  pos.  sequence  determined  by 

presence  or  absence  of  neutrals. 

+ 

GO  TO  900 


Increment  transformer  counter;  if  max.  no.  of  trans- 
formers exceeded,  GO  TO  857. 


J Branch  to  statement  number  based  on  ID: 

800  ID*1,  2,  3,  4,  9.  or  10  (error). 

21  ID»5;  fixed  transformer;  increment  fixed 

transformer  counter  and  assign  Z and  Z 0; 

GO  TO  900. 

■+•  23  ID*7;  LTC;  increment  LTC  counter;  if  max.  no. 

of  LTC's  exceeded,  GO  TO  854;  assign  Z and 
Z0.  GO  TO  900. 

-*•  24  ID*8;  Phase-shifter;  increment  phase-shifter 

counter;  if  max.  no.  of  phase-shifters  exceed* 
ed,  GO  TO  856;  assign  Z and  Z0.  GO  TO  900. 


Increment  capacitor  counter;  assign  Z and  Z0;  GO  TO 


^Increment  reactor  counter;  assign  Z and  Z0;  GO  TO  900. 
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800 

■^XError  statememts. 

900 

■+■ ' Statements  900-920,  Write  assembled  data  on  output 
file  (Tape  1)  with  appropriate  header,  in  ohms  or  per- 
unit  values;  convert  data  to  per-unit  values  if  neces- 
sary , 


GO  TO  10 


Statements  930-960.  If  there  are  input  errors  (IERR 
+ 0)  RETURN.  Sort  line,  transformer,  and  phase-shif- 
ter tables  into  order  by  ascending  bus  numbers  (call 
subroutine  LSORT) . Do  950  Loop:  Calculate  no.  of  con- 

nections for  each  bus  and  store  in  CONEC  array;  count 
no.  of  connections  to  ref.  bus  (if  any)  and  save  as 
IZ:  Determine  no.  of  buses  in  system  (not  including 
ref.  bus)  and  save  as  NBUS. 


RETURN 
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START 

+ 

JWrite  load-flow  header  on  output  file  (Tape  2). 

"Statements  1-7.  Initialize  NA  array.  DO  5 Loop: 

Calc,  array  of  B off-diagonal  elements  (DU)  and  dummy 
connection  array  (NA) ; DO  7 Loop:  Calc,  array  of  B' 

diagonal  elements  (BDIA) . 

"DO  100  Loop:  Triangulate  B*  matrix;  Select  row  no. 

(IRW)  from  reordered  bus  list  (NB) ; Calc.  Diag.  element 
(DBP)  and  assign  value  to  row  index  pointer  (IUBP) ; If 
last  bus  in  list,  GO  TO  100.  Note:  Slack  bus  is  by- 

passed in  this  routine. 

IDO  10  LOOP:  Forms  list  of  row  no.'s  (IDUM)  that  will 

be  affected  by  elimination  of  IRW. 

4- 

"DO  15  LOOP:  Forms  array  of  upper- triangle  elements  of 

IRW  (UBP)  and  list  of  column  identifiers  (JBP)  for 
each  element. 

IDO  50  LOOP:  Eliminated  IRW  by  standard  matrix  row  re- 

duction. 

100  * 

-XEnd  of  B'  Triangulation. 

* 

Fig.  B-5.  Load  Flow  (FDLFLOW) 


141 


GE/EE/76-43 


DO  105  Loop:  Calc,  array  of  B"  off-diag.  elements 

(DU)  and  dummy  connection  array  (NA) ; DO  107  Loop: 

Calc,  array  of  B"  diag.  elements  (BDIA) . 

4 

'DO  200  LOOP:  Triangulate  B"  matrix;  Select  row  no. 

(IRW)  from  reordered  bus  list  (NB) ; Calc.  Diag.  ele- 
ment (DBPP)  and  assign  value  to  row  index  pointer 
(IUBPP);  if  last  bus  in  list,  GO  TO  100.  Note  1: 

Slack  bus  and  PV  buses  are  bypassed  in  this  routine. 
Note  2:  interior  loops  perform  same  functions  as  in 

DO  100  Loop  above. 

200  + 

jEnd  of  B"  Triangulation. 

J_  Restore  dummy  NA  array;  initialize  LIST  array. 

211  * 

-*•  £ Entry  point  for  AP  - A0  solution  routine. 

4 

'DO  250  Loop:  Calc.  AP/V  array  (DLP)  for  each  bus  in 

B' ; If  | AP/V | > tolerance,  set  KP  * 1 . 

4 

"If  KP  - 0 (Converged)  GO  TO  400.  If  max.  no.  of  itera- 
tions has  been  exceeded,  GO  TO  500. 

4 

"DO  270  Loop,  DO  275  Loop  and  DO  285  Loop:  Direct  soln. 

of  [AP/V]  ■ [B'l • [A0]  equation  for  [A0] . Note;  Matrix 
operations  performed  on  DLP  array  transform  it  into  the 
A0  solution  array. 

Fig.  B-5.  (Cont'd) 
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Updates  bus  angle  array  (ANG)  by  adding 


A0  for  each  bus 


£ Increment  AP-A9  iteration  counter 


£ Entry  point  for  AQ-AV  solution  routine 


Calc.  AQ/V  array  (DLQ)  for  each  bus  in 
> tolerance  KQ  = 1 . 


IF  KQ  = 0 (Converged)  GO  TO  401.  If  max.  no.  of  itera 


tions  has  been  exceeded,  GO  TO  500 


DO  370  loop,  DO  375  loop,  and  DO  385  loop:  Direct  so 
lution  of  AQ/V  - [B"*]  [aV]  equation  for  [aV]  . Note: 
Matrix  operations  performed  on  DLQ  array  transform  it 
into  the  AV  solution  array. 


DO  390  and  DO  388  loops:  Update  bus  voltage  magnitude 

array  (V)  by  adding  AV  for  each  bus. 


£ Increment  AQ-AV  iteration  counter 


Call  subroutine  LIMIT  (Check  for  PV  bus  Q-limit  viola 
tions.) 


GE/EE/76-43 


If  KQ  * 0 (AQ-AV  is  converged)  GO  TO  450;  otherwise 
GO  TO  291. 

401  * 

-*•  IF  KP  * 0 (AP-A9  is  converged)  GO  TO  450;  otherwise 
GO  TO  211. 

4. 

450  * 

-♦■TWrite  convergence  data  on  output  file  (Tape  2);  Calc. 
Slack  bus  power. 


"If  li 
456 . 


ine  flows  are  not  to  be  calc.  (OUT  ■ 6),  GO  TO 


£Calc.  and  write  line  flows  on  output  file  (Tape  2). 

456  + 

+ T Statements  456-461.  Convert  ANG  array  from  radian 

units  to  degrees.  Write  (Tape  2),  summarized  data  for 
each  bus. 

4 

GO  TO  570 

500 

-►  T Statements  500-520.  Write  non-convergence  data  header 
on  output  file  (Tape  2),  and  non-convergence  table 
with  Delta  P and  Delta  Q. 

570 

-►Tlf  value  of  NLC,  automatic  load  change,  is  zero,  GO  TO 
999  and  RETURN. 


t 

Fig.  B-5.  (Cont'd) 
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580 

Statements  580-602  contain  the  load  change  routine. 

Read  data  cards  for  load  changes  and  write  load  change 
information  on  Tape  2.  Number  of  bus  changes  is  NC. 

NCC  is  number  of  times  load  change  routine  used.  Data 
read  in  as  in  BUSIN  routine  with  variables  IDB,  BUSNAME, 
V,  ANG,  P,  Q,  QMIN,  QMAX . Arrays  are  adjusted  with 
new  information.  Re-calculate  load  flow  results  by 
starting  at  210  again. 

900 

£ Statements  900-980  are  error  messages. 

999 

1 RETURN. 


END 


Fig.  B-5 . 


CCont’d) 


14S 


, DO  51,  and  DO  61  loops:  form  missing  column  of 

corresponding  to  i—  PV  bus  (DU)  . 


" DO  70, 
_ tivity 


DO  65,  DO  75,  and  DO  80  loops:  Calculate  sensi- 

f actor  for  i—  PV  bus. 


Calculate  incremental  voltage  change  for  i—  PV  bus 
(DV). 

DO  91  loop:  check  if  LTC  branch  is  connected  to  i— 

PV  bus,  if  yes  GO  TO  92. 


Calculate  adjusted  bus  voltage  at  i—  PV  bus  (NO 


Calcula 
_ LTC's) . 


GO  TO  100 


-*•  ][  Calculate  new  tap  ratio  (TNEW)  . 


Check  if  max.  or  min.  tap  limits  are  exceeded;  if  yes, 
set  tap  ratio  at  appropriate  limit  and  adjust  i—  PV 
bus  voltage;  If  not,  GO  TO  96. 


GO  TO  100 


Calculate  nearest  physical  discreet  tap  setting  (func- 
tion DISCRET). 
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START 

4- 

Read  short  circuit  control  card.  If  not  in  proper  for- 
mat GO  TO  912.  Write  header  for  input  data. 

•f 

DO  7 loop:  Initialize  DLP,  DLQ  and  Na  arrays.  NA  is 

equal  to  CONEC. 

r If  there  are  no  transformers  in  line  data,  GO  TO  51. 

4- 

DO  50  Loop:  Checks  each  transformer  connection  code  to 

see  if  any  lines  to  ref.  (zero  sequence)  should  be  add- 
ed to  line  tables  (from  SB  or  EB  or  both);  Also  puts 
line  of  very  high  impedance  between  two  buses  if  no 
zero  sequence  path  exist. 

Read  current  source  control  (CURSOR)  card  indicating 

how  many  source  impedance  data  cards  will  be  read 

(IREF):  if  IREF  * 0,  GO  TO  65. 

4- 

DO  60  Loop:  Reads  in  source  impedance  data,  one  cur- 

rent data  card  at-a-time;  calculates  equivalent  pos. 
and  zero  sequence  source  impedances , and  stores  data 
in  appropriate  line  tables;  adjusts  CONEC  array  for 
each  added  line. 


Fig.  B-7 . Short  Circuit  (FAULT)  Routine 
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All  lines  have  been  added  to  line  tables;  call  subrou- 
tine LSORT  to  sort  line  data  into  order  by  ascending 
bus  no. 


X Update  NA  array  (■  CONEC)  and  IZ  (no.  of  lines  to  ref.) 


DO  76  Loop:  Forms  a feasible  ordering  of  bus  list  for 

impedance  matrix  building  algorithm;  Stores  reordered 
bus  list  in  LIST  array,  and  stores  list  of  line  table 
entry  numbers  in  JBP  array. 


Check  to  see  of  no.  buses  in  LIST  * NBUS,  and  no.  lines 
in  JBP  * no.  lines  in  system.  If  not  equal,  GO  TO 
error  routine. 


Read  mutual  coupling  control  (NOMUTL)  card  indicating 
how  many  lines  with  mutual  coupling  are  to  be  read  in 
(NOMU);  If  NOMU  - 0,  GO  TO  77;  If  NOMU  > 25,  GO  TO 
903,  error  routine. 

* 

[ Read  mutual  coupling  data  into  proper  storage  tables. 

n * 

IRead  fault  impedance  header  (NOFALT)  card;  If  no.  of 
buses  (NFT  or  NOFALT)  is  zero,  GO  TO  84. 


Fig.  B-7. 


(Cont'd) 
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r * 


Calculate  base  impedance  (ZB)  from  voltage  and  phase 
info,  input  on  header  card;  Determine  how  many  data 
cards  must  be  read  to  input  NOFALT  number  of  buses. 
(NOFALT/26);  Read  in  bus  list  and  store  fault  impedance 
as  real  (DLP)  and  imaginary  (DLQ)  components. 


Check  if  load-flow  bus  voltages  are  to  be  used  for 
fault  calc,  and  if  load-flow  converged.  Set  fault 
bus  voltage  array  (EBUS)  accordingly. 


Write  short-circuit  header  on  output  file  (Tape  2) . 


If  short  circuit  analysis  is  to  be  accomplished  ’'auto- 
matically" (I SYS  = 0),  GO  TO  100. 


Set  subsystem  counter  (ICOUNT)  equal  to  ISYS. 


If  ICOUNT  * 0,  RETURN  control  to  EXEC;  otherwise  con- 
tinue with  next  subsystem  study. 

Calc.  IOUT  for  subsystem  header  (IOUT  = subsystem* 
study  number) . 


Read  subsystem  control  (NOBSYS)  card  indicating  how 
many  buses  are  in  this  subsystem  study  (NBS) ; if  NBS 
> 50,  GO  TO  904. 


Fig.  B-7. 


(Cont'd) 
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Write  subsystem  header  on  output  file  (Tape  2),  and 
read  subsystem  bus  list. 


GO  TO  105 


DO  101  Loop:  Sets  up  dummy  bus  list  (NB)  for  automat- 

ic short-circuit  study. 


Calc.  IOUT  for  automatic  header  (IOUT  = no.  of  passes 
of  short-circuit  program  to  complete  network  study 
(NBUS/50) ; Write  header  on  output  file  (Tape  2) , and 
set  bus  count. 

4- 

Entry  point  for  bus  building  algorithm  (initial  pass 
only  for  auto);  re-entry  for  subsystem  studies. 


-*■  F Call  BUS;  subroutine  BUS  is  positive  sequence  Z-build- 
ing  algorithm;  re-entry  point  for  subsequent  passes  of 
auto,  short-circuit  study. 


E If  error  status  is  not  OK  (I ERR  ^ 0),  RETURN. 

+ 

Call  BUS0;  subroutine  BUS0  is  the  zero  sequence  Z- 
building  algorithm,  with  mutual  coupling  handled  by 
subroutine  MUTEST. 

E If  error  status  is  not  OK  (IERR  f 0),  RETURN. 


GE/EE/76-43 


DO  200  Loop:  Calculates  fault  currents  for  buses  in 

subsystem  or  network  segment;  IRW  is  faulted  bus  no., 
and  F and  G are  fault  and  neutral  impedances,  respec- 
tively for  faulted  bus. 

4 

If  bus  is  single-phase  only  (IPHASE  (IRW  = 1)  GO  TO 
132 . 

4 

Calculate  30  fault  for  bus  IRW  (AMPA) ; Calculate  X/R 

ratio  for  fault  current  (XR) ; calculate  bus  voltages 

if  desired,  otherwise  GO  TO  132. 

4 

Calculate  phase-ground  fault  for  bus  IRW  (AMPA);  Cal- 
culate X/R  ratio  (XRLG)  from  equivalent  impedance 
(ZZE);  calculate  voltages  and  line  currents  if  desired; 
otherwise  GO  TO  149. 

149  * 

1”  Check  if  phase-phase  and  phase-phase-ground  faults  are 

to  be  calculated  (SCOP  ■ 0 or  1);  if  not,  GO  TO  160. 

£ If  bus  is  s ingle -phase , GO  TO  170. 

Calculate  phase-phase  fault  (AMPA)  and  X/R  ratio  (XRLL) 
for  bus  IRW;  Calculate  and  store  faulted  bus  voltage 
summaries  only. 

4 


Calculate  phase-phase-ground  fault  current  (AMPA)  and 
X/R  ratio  (XRLLG) ; Also  calculate  fault  currents  in 
each  faulted  phase  (FAULTLB)  and  (FAULTLC)  and  associ- 
ated X/R  ratios  (XRLB  and  XRLC) ; Calc,  voltage  summary 
for  faulted  bus  only. 

150  1 * 

T Write  fault  summaries  for  bus  IRW  on  output  file  (Tape 


“ Wri- 
..  2); 


all  fault  types,  and  voltage  summaries  if  desired. 


Write  30  and  10  - gnd.  fault  summaries  only  on  output 
file  (Tape  2) , voltage  summaries  and  line  currents  if 
desired. 


GO  TO  200 

'0 

Write  10  - gnd.  fault  summary  only  on  output  file  (Tape 
2),  voltage  summaries  and  line  currents  if  desired. 


200  * 

-*•  £ End  of  Loop. 

Decrement  subsystem  counter  (ICOUNT) ; Calculate  new 
value  for  M (automatic  study  segment  list  position); 
Determine  bus  count  (NBS)  for  next  pass  of  automatic 
study. 

£ If  study  is  not  automatic  (ISYS  / 0),  GO  TO  95. 

+ 

Check  if  automatic  study  is  complete  (M  - 0) ; if  yes 
RETURN. 


Fig.  B-7 , 


(Cont 'd) 
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GO  TO  106 

900-950 

-*•  J Write  statements  for  errors. 


RETURN 


Fig.  B-7. 

(Cont'd) 

1 
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START 

DO  1,  DO  9,  DO  11  initialize  arrays  IUBP,  ZODIA,  ZC, 
NA. 


DO  100  Loop:  Forms  the  zero  sequence  bus- impedance  ma- 

trix; one  line  at-a-time  in  the  order  stored  in  JBP  ar- 
ray; L is  the  position  of  the  line  data  in  the  sorted 
line  tables.  Mutual  coupling  is  handled  by  subroutine 
MUTEST;  Details  in  Brown  (Ref  1:80-95). 


If  line  has  one  node  reference,  GO  TO  50. 

6 + 

-*>  ][  Entry  for  branch  element  (no  nodes  ref.)  routine. 

Check  for  mutual  coupling  (Call  MUTEST);  if  no  mutual 
coupling  (IROW  * 0) , GO  TO  20. 


Add  branch  with  mutuals;  DO  7 and  DO  10  loops  add 
branch  with  mutuals;  function  OFFDIAG  returns  the  com- 
plex value  ■ tYpr.rsl  [Zrjc-Zsjc3  « - Function  DIAG  com- 

PUteS  lYpq-rs]  CW’  G0  T°  90* 

+ 

Add  branch  with  no  mutuals;  DO  21  and  DO  24  loops  add 
branch  with  no  mutuals;  GO  TO  90. 

Line  is  loop  (no  nodes  ref.). 


Fig.  B-9.  BUS0  Subroutine  Flow  Chart 
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Check  for  mutual  coupling,  (Call  MUTEST);  if  no  mutual 
coupling  (IROW  - 0)  GO  TO  41. 

Add  loop  with  mutuals;  DO  26  and  DO  30  Loops  add  loop 

with  mutuals;  as  above,  OFFDIAG  computes  [Y  ] 

r pq-rs 

tzrk*zskJ  > and  DIAG  comPutes  !Yp,-rsJ  lzr.loop-Zs.loop) ; 
GO  TO  80. 


T Add  loop  with  no  mutuals;  DO  42  and  DO  45  loops  add 
£ loop  element  with  no  mutuals;  GO  TO  80. 

50  4 

-*•  T Entry  for  line  element  with  one  node  the  ref;  if  loop- 
closing, GO  TO  60. 

I 

£ Add  branch  with  one  node  ref;  GO  TO  90. 


" Li 
(o 


Line  element  is  loop  closing;  add  loop  without  mutuals 


(one  node  ref.) 


Eliminate  loop  axis  by  Kron  reduction  (DO  84  and  DO  85 


Elimina 
loops) . 


Network  reduction  routine;  connection  count  for  buses 
on  each  end  of  line  is  decremented;  If  no  more  connec- 


tions are  to  processed  (NA  (XX)  ■ 0) , and  the  bus  is 
not  in  the  subsystem  study  area,  it  is  eliminated  by 
subroutine  SWAPZ0;  If  swapped  out,  the  remaining  net” 


0 Fig.  B«9.  (Cont'd) 


160 


GE/EE/76-43 


START 

DO  10  loop:  Determines  if  a line  is  coupled  with  any 

other  line  in  system  (scans  LA,  LB,  LR,  and  LS  arrays). 
J_  If  not  mutually  coupled,  RETURN  with  IROW  * 0. 

16  * 

Determines  if  line  to  which  mutually  coupled  is  already] 

0. 


21 


in  system;  if  not,  RETURN  with  IROW 

J Add  new  line  to  mutual  building  tables. 

* 

DO  80  loop:  Constructs  the  mutual  impedance  coupling 

matrix  for  all  lines  in  the  system  coupled  to  the  new 
line  (detailed  in  Ref  1:80-95);  The  DO  50  loop  is  a 
searching  routine  to  locate  the  lines  in  the  mutual 
]_  building  table  that  are  coupled  to  the  new  lines. 

Call  CPLXINV  to  invert  the  impedance  coupling  matrix 

to  obtain  the  addmittance  coupling  matrix. 

+ 

RETURN 
END 


Fig,  B-10.  MUTEST  Subroutine  Flow  Chart 
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Appendix  C.  Program  Variables 

This  appendix  was  developed  to  further  document  the 
PDSAP  program.  All  variables  and  arrays  listed  in  the 
COMMON  statements  are  indicated  as  to  the  overlay  source  and 
other  overlays  where  used.  Tables  contain  the  variables  or 
arrays  listed  by  COMMON  block.  Each  table  lists  the  source 
overlay  and  a brief  explanation  of  the  significance  of  the 
variable  or  array.  Additionally,  figures  depict  the  data 
flow  from  the  source  overlay  to  the  other  overlays.  When 
COMMON  variables  are  not  used  outside  the  source  overlay,  the 
variable  is  omitted  in  the  corresponding  figure.  For  this 
reason,  there  is  no  figure  for  the  COMMON  ZERO  arrays  or 
COMMON  ZCONST  variables  as  all  are  unique  to  the  source 
overlay. 

Variables  and  arrays  not  listed  in  this  appendix  are 
unique  to  each  overlay  and  are  traceable  to  their  origin  with 
considerably  less  effort  then  the  COMMON  variables. 
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Table  C 
Common  COMA 

-I. 

Variables 

Variable 

Overlay  Source 

Definition/Use/Comments 

BKVA 

Basic, 0,0 

Base  KVA 

BKVA1 

Basic, 0,0 

Base  KVA 

CHG 

Basic,  0,0 

Change,  not  used  presently 

CON 

Basic,  0,  0 

Program  control,  selects 
program  functions  to  be 
used . 

F 

Basic, 0,0 

Frequency 

INP 

Basic ,0,0 

Input,  selects  LINEZ  or 
LINDATA  routines 

I SYS 

Shrtckt,3,0 

Number  of  subsystems  in 
short  circuit  routine 

LODOP 

Basic ,0 ,0 

Used  as  index  in  Sub- 
routine LIMIT. 

MAXLTC 

Basic, 0,0 

Maximum  number  of  Tap 
Changing  Under  Load  trans- 
formers . 

MAX  PH 

Basic, 0,0 

Maximum  number  of  phase 
shifting  transformers 

MAXTR 

Basic, 0,0 

Maximum  number  of  trans- 
formers allowed. 

NMAX 

Basic  ,0 ,0 

Number  of  lines  allowed 
times  2. 

OUT 

Basic, 0,0 

Output,  controls  output 
printouts . 

SCOP 

Shrtckt ,3 ,0 

Short  circuit  control, 
selects  base  voltages  and 
type  faults. 

T 

(1) Basic,0,0 

(2)  Lodf lo  ,2,0 

(1)  Temperature 

(2) Transformer  Tap  Setting 

t 


COMMON  COMA  Variables  and  Data  Flow 
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Table  C-II. 


Common  COMB  Arrays 


Array (Size) 

Overlay  Source 

Definition/Use/Source 

ANG (250) 

Basic, 1 ,0and/or 
Shrtckt,3,0 

Bus  numbers . 

B (1450) 

Basic, 1,1  or 
Basic, 1,2 

Real  part  of  1/Z,  line 
element  susceptance. 

BDIA(250) 

Lodf lo ,2,0 

Diagonal  elements  of  B' 
matrix . 

BUSNAME (250) 

Basic, 1,0  or 
Shrtckt, 3,0 

Alphanumeric  name  of 
bus . 

CONEC (250) 

Basic, 1,1  or 
Basic! , 2 

Number  of  connections 
for  each  bus. 

DBP(250) 

Lodflo2 ,0 

1/BDIA  in  triangulation 
of  the  B'  matrix. 

DBPP (250) 

Lodf lo2 ,0 

1/BDIA  in  triangulation 
of  the  B'  matrix. 

DLP (250) 

Lodf lo ,2,0  (1) 
Shrtckt,3,0  (2) 

Delta  P array. 

Real  part  of  ZF  in  p.u. 

DLQ(250) 

Lodf lo ,2,0  (1) 
Shrtckt,3,0  (2) 

(1)  Delta  Q array. 

(2)  Img.  part  of  ZF. 

G (1450) 

Basic, 1,1  or 
Basic, 1 , 2 

Real  part  of  1/Z,  line 
element  admittance. 

I BUS (250) 

Basic, 1,0  and/or 
Shrtckt  ,3 ,0 

Bus  number  array. 

ICC(250) 

Basic, 1,1  or 
Basic, 1,2 

Transformer  code, 
C + I ADD. 

IPHASE (250) 

Basic, 1,1  or 
Basicl,2 

Bus  phase  array. 

IUBP (250) 

Lodf lo ,2,0  (1) 
Shrtckt, 3,0  (2) 

(1)  Index  of  first  ele- 
ments of  B'  matrix. 

(2)  List  of  bus  numbers 
for  subsystem. 
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Table  C-II. 

(Cont ’d) 

Array (Size) 

Overlay  Source 

Definition/Use/Source 

IUBPP(250) 

Lodf lo , 2 , 0 

Used  in  triangulation  of 
the  B"  matrix. 

JBP (3000) 

Lodf lo ,2,0  (1) 
Shrtckt, 3,0  (2) 

(1)  List  of  solumn  iden- 
tifiers for  B'  matrix. 

(2)  List  of  sorted  line 
table  entry  numbers. 

JBPP (3000) 

Lodf lo, 2,0 

List  of  column  identi- 
fiers for  B"  matrix. 

LINA(1450) 

Basic, 1,1  or 
Basic, 1,2 

End  bus.  Determined  by 
second  bus  number. 

LINB(1450) 

Basic, 1,1  or 
Basic, 1,2 

Start  bus.  Determined 
by  first  bus  number. 

LIST (250) 

Basic, 1,0  and/or 
Shrtckt, 3,0 

Used  to  form  re-ordered 
bus  lists. 

LPHA(50) 

Basic, 1,1  or 
Basic ,1,2 

End  bus  for  phase-shif- 
ter transformers. 

LPHB(50) 

Basic, 1,1  or 
Basic, 1,2 

Start  bus  for  phase-shif- 
ter transformers. 

LTRA(250) 

Basic, 1,1  or 
Basic ,1,2 

SB  of  transformer,  reac- 
tor or  capacitor. 

LTRB (250) 

Basic, 1,1  or 
Basic, 1,2 

End  bus  of  transformer, 
reactor  or  capacitor. 

Q ( 2 50 ) 

Basic, 1,0  or 
Shrtckt ,3 ,0 

Reactive  power  array. 

QMAX (250) 

Basic, 1,0  or 
Shrtckt ,3 , 0 

QMX/BKVA  or  QMAXN . 

QMIN (250) 

Basic, 1,0  or 
Shrtckt ,3 ,0 

QMN/BKVA  or  QMINN . 

P^SO) 

Basic, 1,0  or 
Shrtckt, 3,0 

Real  power  array. 

PRANG (50) 

Basic, 1,1  or 
Basic, 1,2 

Phase  angle  for  phase 
shifter  transformers. 
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Table  C-II. 

(Cont 'd) 

Array (Size) 

Overlay  Source 

Definition/Use/Source 

TAP(250) 

Basic, 1,1  or 
Basic ,1,2 

Initial  setting  of  tap 
on  transformers. 

TMIN (250) 

Basic, 1,1  or 
Basic, 1,2 

Minimum  transformer 
tap  setting,  in  p.u. 

TMX (250) 

Basic, 1,1  or 
Basic, 1, 2 

Maximum  tap  setting  of 
transformer . 

UBP (3000) 

Lodf lo ,2,0  (1) 
Shrtckt,3,0  (2) 

(1)  Upper  triangular  ele- 
ments of  B'  matrix. 

(2)  Absolute  value  of 
voltage  for  buses  in  sub- 
system . 

UBPP (3000) 

Lodf lo, 2,0 

Upper  triangular  list  of 
elements  for  B"  matrix. 

C\ 

V (250) 

Basic, 1 ,0 
Shrtckt ,3 ,0 

Bus  voltage  array. 

u 

ZOl (1450) 

Basic, 1,1  or 
Basic ,1,2 

Imaginary  part  of  zero 
sequence  impedance. 

ZOR(1450) 

Basic, 1,1  or 
Basic ,1,2 

Real  part  of  zero  se- 
quence impedance. 

1 
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Fig.  C-2.  (Cont'd)  COMMON  COMB  Arrays  and  Data  Flow 
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Table  C-III. 
Common  COMC  Arrays 


Array (Size) 

Overlay  Source 

Definition/Use/Comments 

DU(1000) 

Lodflo ,2,0  (1) 
Shrtckt,3,0  (2) 

(1)  Array  of  B'  matrix 
off  diagonal  elements. 

(2)  Array  of  bus  vol- 
tages . 

IDB (250) 

Basic, 1,0  and/or 
Lodflo, 2,0  and/or 
Shrtckt,3,0 

Bus  type  (ID). 

JCOL(IOOO) 

Basic, 0,0  and 
Lodflo, 2,0 

List  of  end  bus  numbers. 

NA(250) 

Basic, 0,0  and 
Lodflo, 2,0  and/or 
Shrtckt,3,0 

Number  of  connections 
to  each  bus.  Used  as 
dummy  array  in  each 
routine . 

NB(250) 

Basic, 0,0  (1) 
Shrtckt,3,0  (2) 

(1)  Used  as  reordered 
bus  list. 

(2)  List  of  buses  in 
subsystem,  NBS. 
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Table  C-IV. 

Conunon  CONST  Variables 


Variable 

Overlay  Source 

Definition/Use/Source 

IPV 

Basic, 1,0 

Number  of  Type  2 buses. 

ISS 

Basic, 0,0  and 
Lodf lo ,2,0  (1) 
Shrtckt,3,0  (2) 

(1)  Total  number  of  JCOL 
entries . 

(2)  Number  of  lines  in  system 
(NL)  divided  by  2. 

ITR1 

Basic, 1,0 

Number  of  iterations  for  PTOL 
Equal  to  ITRMAX1 . 

ITR2 

Basic, 1,0 

Number  of  iterations  for  QTOL 
Equal  to  ITRMAX2 . 

IZ 

Basic, 1,1  or 
Basic, 1,2  and 
Shrtckt,3,0 

Number  of  line  elements  to 
reference. 

LL1 

Basic, 1,1  or 
Basic, 1 ,2 

Number  of  aerial  and  under- 
ground conductors. 

LL2 

Basic, 1,1  or 
Basic, 1,2 

Number  of  fixed  transformers. 

LL3 

Basic, 1,1  or 
Basic, 1,2 

Number  of  autotransformers. 

LL4 

Basic, 1,1  or 
Basic, 1 ,2 

Number  of  phase-shifter  trans 
formers . 

NBUS 

Basic, 1,1  or 
Basic, 1,2 

Number  of  buses  in  system. 

NL 

Basic, 1,1  or 
Basic, 1,2  and 
Shrtckt ,3 ,0 

Number  of  lines  in  system 
times  two. 

NLC 

Basic ,1 ,0 

Number  of  times  loads  are 
changed  in  Load  Flow  routine. 

NOLTC 

Basic, 1,1  or 
Basic ,1,2 

Number  of  TCUL  transformers. 

NOTR 

Basic, 1,1  or 
Basic, 1,2 

Number  of  transformers  in 
system. 

PTOL 

Basic, 1,0 

Tolerance  for  real  power. 

QTOL 

Basic, 1,0 

Tolerance  for  reactive  power 
in  Load  Flow  routine. 
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t 


0 


Table  C-V. 


Common  SAVE  Variables 


Variable 

Overlay  Source 

Definition/Use/Source 

IERR 

Basic, 0,0  or 
Basic, 1,0  or 
Basic, 1,1  or 
Basic, 1,2  or 
Lodflo,2,0  or 
Shrtckt ,3 ,0 

Error  counter  for  program. 

Table  C 

-VI. 

Common  ZCONST 

Variables 

Variable 

Overlay  Source 

Definition/Use/Source 

IDUMM 

Shrtckt, 3,0 

Second  counter  for  number 
of  buses  in  mutual  impedance 
table. 

IMUT 

Shrtckt, 3,0 

Number  of  buses  in  mutual 
impedance  table. 

I ROW 

Shrtckt, 3,0 

Number  of  mutually  coupled 
lines  from  subroutine  MUTEST 

NBS 

Shrtckt ,3 ,0 

Number  of  lines  in  a sub- 
system. 

NOMU 

Shrtckt ,3 ,0 

Number  of  mutually  couples 
lines . 

t 
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Table  C-VII. 
Common  ZERO  Arrays 


Array  (Size) 

Overlay  Source 

Definition/Use/Comments 

EBUS (250) 

Shrtckt, 3,0 

Voltage  array. 

I JK (25) 

Shrtckt ,3 ,0 

Bus  number  array  of  mutu- 
ally coupled  lines. 

I SAVE ( 8 ) 

Shrtckt, 3,0 

Bus  number  array  in  sub- 
routine MUTEST. 

ITZ (25) 

Shrtckt, 3,0 

Additional  array  for  mu- 
tually coupled  lines. 

KJI  (25) 

Shrtckt, 3,0 

Second  bus  number  array  for 
mutually  coupled  lines. 

LA (2 5) 

Shrtckt ,3 , 0 

Start  bus  array  of  mutu- 
ally coupled  lines. 

LB (25) 

Shrtckt, 3,0 

End  bus  array  for  mutually 
coupled  lines. 

LR(25) 

Shrtckt ,3 ,0 

Array  of  start  bus  to  which 
lines  mutually  coupled. 

LS (25) 

Shrtckt ,3 ,0 

End  bus  array  of  lines  to 
which  mutually  coupled. 

YCOUP(8 ,8) 

Shrtckt, 3 ,0 

Mutual  coupling  matrix. 

ZOBUS(2775) 

Shrtckt, 3,0 

Zero  sequence  off  diagonal 
terms  of  ZO  matrix. 

ZODIA(75) 

Shrtckt ,3 ,0 

Array  of  diagonal  zero  se- 
quence impedance  terms  of 
ZO  matrix. 

ZBUS(2775) 

Shrtckt ,3 ,0 

Positive  sequence  off  di- 
agonal terms  of  Z matrix. 

ZC (75) 

Shrtckt ,3 ,0 

Impedance  array  used  in  BUS 
and  BUSO  subroutines. 

ZDIA(75) 

Shrtckt, 3,0 

Array  of  diagonal  positive 
sequence  terms  of  Z matrix. 

ZM(25) 

Shrtckt, 3 ,0 

Array  of  mutual  impedance 
between  mutually  coupled 
lines . 
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Appendix  D. 

This  appendix  contains  a complete  listing  of  the  PDSAP 
program.  The  numbers  near  the  left  margin  are  line  numbers. 
If  trying  to  find  a particular  line  number  in  a routine,  use 
these  left  margin  numbers.  The  numbers  near  the  right  margin 
are  sequence  numbers  and  refer  to  the  card  numbers  in  the 
source  deck.  These  numbers  are  used  to  insure  the  cards  re- 
main in  proper  sequence. 


( 


1 DVERLAY(BASIC.O,OI  000100 

PROGRAM  EXEC ( IMP JT,TAP-5«IM»UT,0UTPJT,TAPE6»0UTPUT,TAPE1,TAP£2»  000110 

C TNI*  PROGRAM  SUPERVISES  THE  OVERALL  EXECUTION  OF  THE  COMPLETE  PRO-  000120 

C CRAM  BY  MEANS  OF  PARAMETERS  READ  IN  ON  CONTROL  CORDS.  THESE  PARON-  OOOITO 

5 C ETERS  A»E  DEFINED  OHO  COOEO  IN  THE  USER'S  INSTRUCTIONS.  000100 

C THE  PURPOSE  OF  THE  >R0SRAH  IS  TO  000150 

C PERFORM  VARIOUS  STAHOORO  SYSTEM  ANALYSIS  ROUTINES  ON  A PONSR  OISTRI-  000150 
c aurtov  SYSTEM.  THE  program  is  set  UP  TO  HANDLE  A 250  §us  system  NITHOOOITO 

C 500  LIN'S/TRANSFORNERS.  OF  THE  500  LINES/TRANS.,  50  MAY  BE  TA»-  000150 

10  C CHAMGING-UNDER-LOAO  TYPESt TCUL • S* . THE  PROGRAM  HILL  ALSO  ACCEPT  000190 

C PHASE-ANGLE  REGULATORS  (MAX.  0f  RB*  . 000200 

C THE  PROGPAN  IS  CAPABLE  OF  LOADpLOM  AND  SHORT-CIRCUIT  ANALYSES  AT  THE  000210 
C PRESENT  AN  INPUT  OPTION  ALLOYS  THE  LtNE  DATA  TO  BE  REAO  IN  EITHER  000220 
G P RE- CALCULATED  OR  AS  "RAH”  OITA,  HITH  THE  IMPEDANCES  CALCULATED  BY  000250 
It  C THE  PROGRAM.  OVERA.l  PROGRAM  REVISED  NOV  76  4ITM  CODE  NAME  P0SA>.  000240 

COMP.FX  2M, YCOJP,  ZCOUP.ZBUS. ?59U5,ZOIA,ZOOIA,EBUS, IC  000250 

INTEGER  CON, CHO, SCOP, OUT, DOMED, A, C,0,E  000260 

01 MENS  ION  TITLE (8)  000270 

COMMON  /COMA/CON, CMS, LDOO», SClP, tNP, OUT, P,T,B<VA,RM01,NNAX,NAXTR,  000280 
20  1NA*LtC»MAXPH, ISYS , SR VAl  000290 

COMMON  /COMB /LINA ( 1450) , LINS (1458* ,G( 1450* ,B(1450) ,PC250),O (250*.  000500 
l.PH9(50),PHANG(50>,LTRA(750)  ,LT  RB  (250)  , IA»(250»  , TNNt  250*  ,V(250t  , 000310 

2THX(*50).tUBPP(250>.ANS(250> ,INUS (250* ,OB» (2501  , UBPCJOOOt , 000320 

IBUSNANE(250) ,LPHA ($0*,LIST(?58*,IU9P(250>,OHIN(2SO),0HAV(25O*,  000530 

It  40BPP( 250* ,U9PP(30Q0> , JRP (3000 » , J5PP(3000) , ICC(25 0* , OLP(?50 * , 000340 

5101(1450* ,20R(1450> , ROIA (250  * ,C0MEC(250) ,0LQ(250 > , IPHASE (2501  000350 

COHHON/COHC/  NA(250>  ,N3(250>  ,UCO.  (1000*, OUdOOOl  ,105(250*  000360 

COMMON  /CONST/  VBUS,NL,ISS,IPV,Ll1,LL2»LL5,LL4,MOTR,IZ,NOLTC  000370 

l.ITRI.ITR2,PTOL.9TOL.NlC  000300 

30  COMMON  /SAVE/IE RR  000390 

COMMON  /2ERO/LA(?5l,LB(25l,LR(23l  ,LS(25» ,ZH(25*  , YCOUP (0,8* , 000400 

1ZC0US(25> ,1 JK  (25* ,<JI (23) ,1 r 7(75 * ,1 5A VE( 0* ,ZOIA( 75* ,ZOOIA( 75) , 000410 

2Z5 JS(2775), Z0BJS( 27751, E9US( 250), ZC(75)  000420 

COMMON  /ZCONST7  N0NU,NBS,IR34,THJT,t0UNM  000430 

35  1000  FORMAT  (R6, 413)  000440 

1001  *ORMAT(OR10)  000450 

1002  *0RMAT(///lX,70(tH*» /IX, 1H* , 6SX , 1H»/1 X,1H» ,13(,4R10,15X,1H*/1X.  000460 

11N' , 1 3X«4R1 0, 15X, 1M* /1X,1H*,65X,1H*/1X,70(1H*)/)  000470 

1004  F0fMAT(R6,F7.0,  3P5.0*  000400 

60  1005  FORMAT  (/T20,“«*  PROGRAM  PARAMETER  CONSTANTS  ••*“//T8,“BASE  XVA*.  000490 

1128, “FREOUENCY*, 134, “TEMPERATURE*. Ill, "EARTH  RESTSTIVITY-/3X, F7. 0, 000500 
2*  <VA“,5X ,F5. 0,"  HZ“,6X,F5.0,“  DEG.  C",9X,Ft.0,“  METER-OHM"//*  000510 

1006  FORMAT (“USE  OF  CONTROL  PARAMETERS  4 OR  6 OR  7 IS  NOT  ALLOHEO  AT  T000520 
IMIS  T I ME,  “*  000530 

6t  1007  FORMAT (IX, “USE  Or  CON  C00E",I3,"  NOT  ALLOHEO. “)  000540 

1010  pORNAT(//lX,~«»»  THE  PROGRAM  HAS  TERMINATED  OJE  TO",I5,“  ERRORS ( “000550 

l/TZO, "LISTED  ABOVE  IS  A DESCRIPTION  OF  £A!h“/TZ0, “ERROR  AMO  RELEVA000560 
2MT  OITA  FOR  LOCAT IMG"/T20,"TM?  ERROR  SOURCE.  GOOD  LUCX(“*  000570 

1011  »ORMAT(T3,“SB“,T7,-»9“,T17,-G“,T31,“B“,T4S,"RE(ZO*“,T57,-IM(ZO* “7/000580 

50  1(2(10,13*  ,3X,6( Ell.  5 , 3X* ) /*  000590 

1012  FORMA T(// IX, 70( 1H*I FIX, IH', 500, 1M*/1X,IH*,T23,“S0RTE0  LINE  INPUT  0000600 

1ATA“,T71,1H“/1X,1H», TIP, “LISTED  SY  ASCENDING  BUS  N UMBERS", T71.1H* 700 0610 
tlX,lHP,60X,lN*/lX,70(lH*)//l  000620 

1017  »0RMAT(/T20 ,“••••  PROGRAM  CONTROL  CONSTANTS  ••••"//T33,"CON«“,  000630 

55  1IJ/TSS.“INP*“,IS/T33, “OUT*", I3/TS3,  "3HG»“, 13/7*  000640 

1010  FORMAT  (T3,“F0U04IMG  IS  THE  SORTED  .INE  TABLE  AS  CALCULATED  */*  000650 

1015  FORMAT (T3, “PROGRAM  CONTROL  CARO  MOT  IN  PROPER  rORMAT  OR  LOCATION.  000660 
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AIR  FORCE  INST  OF  TECH  LPIl-HT-PaTTERSON  AFB  OHIO  SCH— ETC  F/G  10/2 
A USER-ORIENTEO  PO*ER  M«1kI  IUTJON  SYSTEM  ANALYSIS  PROGRAM. (U) 

OEC  76  J A UNDERMOOO 


I5M0  nitn  <cynor3  is  fvitua.  ”/i  00057 i 

tin  m«T(//i*,rotn»i/iMn»,»i(,Hvi»tiH»,»»,  oooooo 

»•»)«<  OISTRIWTION  SYSTEM  INALTSIS  PROGRIN  000550 

t MiKT)jr,jr»,nvn,iH»,  mm 

Mina 

toti  fowTc//i».7iim*tM«.inMi<,»wi*,iM»(»Ki  mrta 

I’psnir  oistriojtioy  system  analysis  program  (»osap>-,  111730 

1 print3jt-,2Tx,h»/m,im»,  000750 

s»a«itM«/ix,70UM*i/i  atsrsi 

mnaouoo  Hirte 

1«*M«2J0  Him  • 

«<iTc>aa  aatna 

««m*»  liana 

tm>iooona  laaaao 

nir'i;,inii  aaostt 

arit* (i.io2t>  oots2o 

A£A3(5  ,1001 ) TITLE  000030 

NRITE (2,1002)  title  000050 

4air*(l,1002)  TITLE  000000 

(EO(5,iooo)  a,con,inp,out,:ms  oooooo 

S«)(»i*ON  000070 

tPM.NE.C)  GO  TO  500  000000 

UO(!,ia05)  0,0<VI,F,T,|()t  oooooo 

t>MS(SPIl  000000 

IF(O.NE.E)  GO  TO  Oil  000010 

12(0*00. CQ, 0, ) 8*VA«10000I.  000020 

MllliKM  00  0 0 30 

17(7. EO.O)  7«60.  OOOOOO 

tF(T  EQ.O)  T*25,  OOOOOO 

I 7( RN01.C0. 0)  RM31*100.  OOOOOO 

40111(2,1017)  GON, IMP, OUT, IMG  000070 

40171(1,101 7)  IIN.IOP.IUT,:*;  000050 

4RITE  (2,1000)  3*VAt7,T,R-(01  OOOOOO 

4RtTI ( 1,1000)  8XVA,F,T,RM3l  001000 

tPISON.EQ.  O.OR. CON,  GT. 7)  63  TO  SI  001010 

3ALL  OVERLAY(5HMASi:,1.0,6NRECAL.)  001020 

I7(t!RR.NC.0>  S3  n 550  001030 

IPOJT.CQ.IOI  GO  T3  lit  001050 

GO  T3 (100,20,  30,50,50, GO, 70 1 13N  001050 

20  SILL  OVERLAY  (ML 09rL0,  2,0,5 4RCC1.L)  00  1 000 

I7(nRR.I(C.O)  SO  TJ  550  OOtOfO 

30  T3  100  OOtflOO 

30  SOLI  OVERLAY (7HSHRT CRT, 3,0, SHOE CALL)  001050 

t7IIERR.NC.0l  60  T 3 550  001100 

30  T)  100  001110 

50  4Rm(2,100*l  001120 

30  T3  50  001130 

50  GALL  OVERLAY (5HL007L 0,2 »0»8NRECALLA  001150 

I7ltIRR.NC.0l  33  T3  050  001150 

3ALL  0VCAIAV(7MSMRTC KT,3,0, ANRECILL)  HUGO 

t7ltIRR.NC.0a  GO  T3  550  001170 

30  T3  100  001100 

•o  4rit:i<,ioooi  oottoo 

30  T3  50  001200 

to  4RIT! (2,1005)  001210 

30  TO  50  oottta 

to  ORtTEIt.lOOTI  CON  0012J0 


50  ICRR«1 
30  T3  550 

too  I70'JT .CQ,t.OR«  O'JT.CO. L.OR.3JT.  C0.5.0R.  OJT.CQ.  10)  CO  TO  101 
f7IOVT.CQ.OI  CO  TO  101 
4RIT  rai,i  Oltl 

4RITI (1,10111  ILfNA(I),LINO(I),0(II,tltl,tOR(ta,tOI(I),I«l,NL) 
101  17(MT.NC.t.ANt.OUT.NC.tOI  RENIN3  1 
RC4INO  t 
STOP 

500  4RtT:it*10t5»  t 

AN  TO  N5N 

501  4RtTf  It,  10151  I 
555  ICRRM 

550  4Rtri(t,IO(Oa  If RR 
(MITPll.tOtOI 

4RITI ( 1,1011 I tLtN0lla,LI«5ltl,tlt),0lt), I0R(II, 201(1), I-1,NL) 

«««*  » 


001150 
001250 
001250 
001270 
001200 
001250 
001300 
001310 
001320 
001330 
001350 
001350 
00  1 350 
001370 
001300 
001350 
001500 
001510 
OOtAtO 
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SUBROUTINE  LS0RTtNL,LA,L9,lSIZE,LTA9,A,B,5,0,IE! 

TNII  SUBROUTINE  SORTS  TNO  TABLES  CLi  1 LOT  INTO  INCREASING  SEQUENCE 
IN  OOUBLC-PRCCXSION  FASHION,  I.E.  L»  IS  SORTEO  AS  THE  HOST  SIGNIFI- 
CANT FIGURE,  A NO  TEEN  LP  IF  NA.UES  OF  .A  ARC  EQUAL.  IN.  AOOXTTON, 

UN  TO  FIVE  OTHER  TABLES  CA.0,C,D,  A IEI  CAN  BE  SORTEO  IN  A COMES* 
NONBINS  NANNER.  LTAB  INOICAT-S  MOM  HA  NT  AOOITIONAL  TABLES  ABE  IN- 
VOLVE). NNILE  LSIIE  INOICATES  TEE  NJNSEB  O'  ENTRIES  FEB  TABLE  f'OR 
ALL  TABLES!.  NL  INOICATES  NHETMSR  .A  A LB  MILL  BE  SORTED  IN  OOJOLS 
PRECISION  FASHION  CNL-ZT , OB  SBBTEO  IN  SINGLE-PRECISION  FASHION 
CTR.-1T  OSINS  ONLY  TABLE  LA. 

01  BE  NS  ION  L AC1AS0I  .LBCIASAI  .A  (IASI!  . B ClASOI .CtlASOl .OtlASOT  > 
ItCClAfOl 

IF(LSITC.LE.l)  RETJBN 

N-.SIZC-l 

ATIKTtMi 

00  TB  J«l,H 

IN-J 

.-J»l 

90  SB  I-L.LStZf 
IFtLACII-LACtill  IS, IB, 39 
IB  IFINL.EO.tl  GO  TO  IS 

IFCLBC  XT .CE.LB(tN) I GO  TO  31 
IB  IN- 1 

SB  CONTINUE 

tFCIN.LE.JT  GO  TO  TB 
SO  T5CAS,AA,A3,A2,Al,A0l  NTA9 
AB  ITE-IECINT 
At  TO-OIIMI 

ac  Tc-ecim 
as  ra*sfXN> 

AA  TA.ACINT 
AB  LTB-LAIINT 

IPCNL.EQ.il  GO  TO  AB 
LTB-LBCINT 

AB  IFCtH.LE.JT  GO  TO  SI 

SO  TO  CSS,  SA.BS,  S2.S1,90T  NTAB 
SB  IECtHT-XECIN*lI 
91  OlTBT  -0CIN-1T 
SC  CtIHl-CtIH-11 
S3  BCtBI-BCIH-lT 
SA  ACIBT-ACIH-tT 
9*  LBCtBT  -LA  CIH*t) 

tFCNL.CQ.tl  GO  TO  ST 
LQCIB1-L9CIN-IT 
97  IN-IN-l 
SO  TO  AB 

99  SO  T0C6S, 6A,B3, BC,kt,A01  NTBB 

•a  ICC JT-ITC 

si  otJT-ro 

AC  5CJT.TC 

AS  ICJT-TB 

AA  BCJT-TA 

AB  .At JT-LTA 

IFCNL.CQ.1T  GO  TO  Ft 
LBCJT-LTB 
7B  CONTINUE 
AB  RETURN 


BS  IASS 

BB1AAB 
BOtASfl 
•B1  ABO 
B01A7S 
O01ASO 
081 ABO 
001900 
001910 
001020 
OOISSO 
OOISAO 
OOISSO 
001960 
001ST0 
OOISSO 
•01900 
•01600 
•aiAio 
•01620 
601630 
0016A0 
0(1690 
•01660 
•01670 
•01600 
••1600 
BB17BB 
••1710 
••1726 
••1730 
•B17AB 
•B17SB 
••1760 
•01770 
•01700 
•01700 

milt 
•01010 
001020 
•01030 
01 10 AO 

•tioso 

•01060 

•01670 

•01000 

•01900 

aotm 

•01010 

•01020 

•01030 

0019A0 

•01090 

••I960 

001070 

001000 

mm 
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SU0R9UTINE  OftOER(I30>  HHH 

c this  susroutine  owurts  the  srcer  3R  elxninatxon  mr  the  TRi*NCjime»202o 

C TTON  or  the  -N“  MATRIX,  INC  ORDERING  SCHEME  IS  RERERREO  TO  AS  THE  002030 

C DYNAMIC  ORDERING  SCHEME.  IT  SELECTS  THE  NEXT  NON  TO  OE  ELIMINATED  *0002140 

C THE  ONE  HITH  THE  REVEST  TEENS  IN  THE  REOUCED  MATRIX.  002000 

INTEGER  OUT  002000 

OIHENSION  IDUN(SO)  002070 

COMMON  /C0N*/C3N,CN3,L000R,SC0R,INR,0UT,E,r,S<N*,RH01,NNAX,M*(TR,  002000 
1NAXLTC.HAXRM,  ISY5.SKVA1  002090 

30NH0N  /COHN/LlH*<t400t ,1199 (16*0) ,3 ( 1690) ,0(14*0) >P( 2S«) ,0 (7*8) , 002100 
tlRM*{*0>,RMANCt*0),lTR*t7*0>,LTR9t2*0),T*a(290),THN(2*0),N(2*0>,  002110 

tTN«t7S0),IU9RR(2S0),*NS(2S0> >I9US(2S0) ,0»» (2001 . USR(3000> , 002120 

ISUSN*NE(2S0) ,LRH* (001 (LIST ( *09)  , I US* (290) , SHIN (290) , ON AX (290) , 002130 

41*RR(2S0),U«RR)S000),J9R(30*0),JlRR(3O90),TCC)2S0),OLR{79O),  002140 

0101(1600)  >20011 40 01  ,9014(210) ,C9NE5 (290)  >110 (200 ) ,IRN*SE(290)  002100 

C0NNU4/C0NC/  M (200)  >N9(290),  ICO.  (1000), 9J(1000>,  109(290)  002160 

JONH'.'*)  /CONST/  N*US,NL,XSS,tRN,L.t,.L2,.L3,LL6,N0TR>t7,N0LTC  002170 

1,ITR1,ITR2,  RT0L,3T3L,NlC  002100 

5 THE  R3LLOHINC  1 009  »ORNS  THE  JC9L  *90  9A  NESTORS  MON  THE  002190 

C LINE  SAT  A R£  AO  IN  09  THE  INRUT  RR93AAN.  THE  JCOL  VECTOR  CONTAINS  A 002200 
S LIST  OR  ALL  THE  J TERNS  MON  EACH  R3N  OR  THE  90S  A3HXTTAHCE  MATRIX.  002210 
e THE  N*  VECTOR  IS  A LIST  0*  TNI  TOTAL  NO.  OR  CONNECTIONS  TO  EACH  9JS.  002220 
00  0 I*l>  290  002230 

0 NA(I)»0  002260 

)>(>1  002200 

OO  10  Xal>NL  002260 

IR(ltNA(t)>EQ#0.0R. LIN9(I)>C0> 0)  CO  TO  10  002270 

JC9L(N)aLIN0(»  002200 

NaNM  002290 

7 IR(LTNAd).NE.J)  63  TO  0 002300 

N*(J)aNA(J)«l  002310 

30  13  10  002320 

0 JaJ*l  002330 

SO  T3  7 002340 

10  30NTINUC  002300 

ISS»Nl-2»I2  002360 

C IN  THE  ROLLONXNG  LOOR,  THE  OUS  LIST  IS  SCANNED  ANO  THE  NUN9ER  00  2 370 

C OR  SONNESTIONS  TO  EACH  IS  CON»*REO.  THE  9US  NXTH  THE  REVEST  CON-  002300 
C NE5TX3NS  IS  SELECT E3  AS  THE  NEXT  OUS  T3  SE  ELtNINATEO  IN  THE  TRI-  002390 
C AN6JL ATION  ROUTINE.  THE  ACTUAL  EL1NINATION  IS  SINULATEO  ON  THE  JS3L  002400 
C NESTOR.  NITH  “J”  TERNS  A99E0  3R  DELETES  AS  A»»RO»RX*TE.  THE  NUH9ER  002610 
C OR  CONNECTIONS  TO  THE  OUS  IS  At  TIRE  3 AC50R9IN3L7.  THE  L90R  THEN  002620 
C REREATS.  ANO  THE  RENAMING  RUSSES  SSANNEO  TO  RINO  THE  OUS  NITH  THE  002430 
C RENEST  CONNECTIONS  IN  THE  REDUCED  NITRtX.  UNTIL  ALL  SUSSES  NAVE  SEEN  002460 

e 


REORDERED. 

N9(l»*0 

30  100  I • 1,  NOUS 

IC3N>29 

IIIaI-1 

00  It  Lal.NSUS 
IR  (NA(L>  .SE.  ICON)  GO  T3  12 
00  11  LL*1,I72 
. IR(L.n.N9(LL>)  S3  TO  12 
11  CONTINUE 

ICONaNA(L) 

NO(I)aXRINL 
It  CONTINUE 


002490 
002460 
002670 
002490 
00  24*0 
002000 
SO 2010 
002020 
002030 
00  2960 
SO 20*0 
002060 
002970 
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IN 


IN 


«<•• 

C THIS  IMP  SCANS  XOL  TO  PINO  R9NS  MITN  ELENENTS  IN  THE  I»TM  COLONS 
C A NO  THEN  STORES  THE  SJS  RON  NJ1PER  IP  IT  HAS  NOT  SEEN  PREVIOUSLY 
e OPERATES  UPON. 

00  tt  N»1.ISS 

iPijcoLim.vE.iRHi  60  rs  co 
00  IS  LM, I 

IPIIRNINI  »E1.  NBtLl 1 60  TO  El 
10  CONTINUE 

KKMKKKA1 
tOUNIKKKl»IRNfNI 
tt  CONTINUE 

C THE  PSLL0NIN6  LOOP  PERPORNS  TIE  StNJLATEO  R04  ELIHI NATION  ON  ALL 
C RONS  SE.ON  THE  I*TH  RON.  SUBROUTINE  A30R0EL  IS  SALLEO  TO  ADO  OR 
C OCLXTI  IN  ELENENT  PROS  THE  JSSL  VECTOR  IP  NSCCESSART. 


SI 

n 


st 


IPtRKR.EQ.tl  60  TO  lit 
00  IS  NMtKRK 
IJJM 

»S  RlaJAOOIRVI 

EPaRlANA  f IRNI  M 

00  N JXI.KP 

IPfX0.tJl.E9.IRNl  60  TO  IS 
Kt«JI09ifOUNfNtl 
RS»«l»NAIIOUHTN»»-i 
tmiJ.Cl.ll  60  TS  SZ 
0)  SS  L*K1,*’ 

IPIXOLILl.n.IRNI  60  TO  SS 
SONTtNUE 

IPtIRNfKII.  EO.  JCOLt  J> I 60  TO  II 
00  St  L*Rt,<t 

XPfJCOLtLI.ES>  XO.  f Jl  I 60  TO  AS 
CONTINUE 

CALL  A00R9ELtLM.lt » 

NAttOUNtNM.NAtlJUNfNtlM 

SO  SO  AS 

M CALL  A00R9ELtLtM.il 

NA  QSUHtNI  1 tNA  tISJNtNI  1-1 
IJJM 
•0  SO  *S 
AS  CONTINJE 

01  CONTINUE 
tOS  CONTINUE 

IPtSJT.EO.I.OR.SJT, EO. T. OR,  JJT.E  1.1. OR. SUT.EO.il  1 60  TO  111 
VRIfStt.llll! 

VRITf  <1.  tilt  I (Nlttl  .IM.NSUSl 
till  PORNAT t/P/ll.TI 1 1N*1 /1V,1N» ,SI*,IN*/1K, tN*»TlA,“REOROEREO  NUSIIST  IISISI 
tRETURNCO  OS  SUBROUTINE  OROER*.T71,H»/»»,lH»,AI«,lH»/lK,TlttHM//!ll3#AO 
till  PORNAT t SI, 11ISI  OIIISI 

tot  RETURN  ••*••• 

EN9  NISEI 


•ICSSI 
•I CSSS 

II  cut 

ISC61I 
SI  CSC! 
IS  Cl  SI 
••CAM 
•ICASI 
•ICA6I 
•I CAT! 
NCMI 
•ICA9I 

•icrti 

••cm 

•icrci 

mccsi 

•ICTAI 

ncrsi 

•ICTAI 

IICTTI 

••cm 

••cm 

••mi 

••cm 

•ICICI 

NCISI 

NCSA! 

NCISI 

••MSI 

•ICICI 

•■Mil 

■•MSI 

•ICSII 

NCS1I 

••MCI 

•ICSSI 

NCSA! 

•ICSSI 

•ICS6I 

•ICSTI 

•ICSII 

•ICSSI 

••Sill 

••Sill 

•ISICI 
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1 


SU1RDUTINE  *00R9EL(.,!:,JI  NUN 

THIS  SUBROUTINE  *099  DR  DELETES  IN  ENTRY  IN  THE  JCOL  TISLE.  IC  IS  I 003090 
farineter  nmich  oeternines  if  in  entry  is  iodeo  dr  deleted.  ic»i  re-ooiioo 

SUITS  IN  IN  IOOEO  ENTRY , I NO  J5*-l  RESULTS  IN  I DELETION.  OTHER  003110 

HOLE  ENTRIES  IRE  NONE]  T9  ILLDU  'H  TNI  10)10  OR  9ELETE0  ENT°Y.  THEBITltO 
RIRINITfR  ISS  (TOTH  NUHOER  9*  TISLE  ENTRIES!  IS  INCNENENTEO  OR  OE  113130 
RENENTE)  IS  IPFRO»RIITE.  THE  L »IRINCTER  9ETERNINES  THE  POSITION  0*  OOSlfcO 
THE  DOfO  OR  DELETE)  ENTRY,  IN)  J IS  TIE  MRINETER  THIT  9ETERNINES  M31SI 
THE  VILJE  OF  THE  I0DE3  TERN  IN9T  USED  r0R  0ELETI9NS).  003110 

50HN9N/C0NC / M (290! ,N9(290I , JCO. (10001, 9/(1000! ,109(290!  003120 

50NNDN  /CONST/  NOUS, NL,ISS,t»V,L.l,LL2,lL3,LL9,N0TR,12,N0LTC  003100 

1,ITR1, ITR2, FTOL.DTDL .NIC  003190 

12(13. EO. II  60  T)  28  003200 

.S*ISS-1  003210 

>0  10  t«L,LS  003220 

iC9L ( I !» JCOL (III!  003230 

10  JONTINUE  003210 

JC3L  (ISSIM  003290 

ISS*ISS>1  003200 

RETURN  00  3220 

20  .3-I9S-L-2  003200 

/Cf/39L(J!  003290 

JCOLdSSdl-JCOLdSSI  003300 

JC3L( ISSI »/COL( ISS-l  I 003310 

30  30  !■! ,LS  003320 

lendss-tiocoLiiss-i'ii  oosiso 

30  20NTINUE  003300 

/C9L(L*1I*JC  00  3390 

ISS*ISS»1  003300 

RETURN  003320 

EN)  003300 


•UNDr ION  INNim 

THIS  FUNCTION  CILCU.ITES  THE  R9N  NUNOER  OF  IN  ENTRY  IN  THE  LINE 
TIOLE  FRON  THE  GIVEN  POSITION,  l. 

30NN0N/C0HC/  NM290I  ,N*(290I,  JC9.  (10001, 9J(100II  ,100(2901 
30NN0N  ./CONST/  N9US,NL,ISS,IFV,LLl,LL2,LL3,LL9,NOTR,I2,NOLTC 
1*ITR1 , ITR2,  FTOL,3TDL  ,NLC 
tSJN*  0 

30  10  11*1,  NOUS 
tSON*ISUM*NI(Itl 
IFdSUN.6E.HI  60  T)  11 

10  CONTINUE 

II*It-l 

11  IRN*II 
RETURN 
IN3 

FUNCTION  JlOOdl 

THIS  FUNCTION  CILSUL1TES  THE  F3SITI3N  OF  THE  FIRST  ENTRY  OF  I GIVEN 
MU  IV  THE  LINE  TISLE,  GIVEN  TNI  R04  NJNOER, 

SONNON/CONC/  NK200I  ,N)(2S0I , /CD. (10001 ,)/( 10001  ,100(290! 
tt/N*0 

IFII.EO.il  GO  TO  II 
N J I ■ I * 1 
30  10  >l,N/t 
|0  t>/N*!SUN«NI(JI 
/«eo*isuH*i 
RETURN 
11  JI9)*1 
RETURN 
INO 


003390 
00 3900 
003110 
003920 
003930 
003990 
003990 
003960 
003920 
003900 
003990 
003900 
00  3910 
003920 
00  3930 

003990 
00  3990 
003960 
003920 
003900 
00  3990 
003600 
003610 
003620 
00  3630 
00  3690 
00  3690 
00  3660 
003620 


I 


1 


f 


10 


If 


1 


f 


tf 


If 


n 


if 


SB 


If 


SUBROUTINE  PERUNET(Z,ZO,PH,N*,S)  003600 

integer  m Mi«9f 

complex  z.zo  mm 

COHNON  /CONA/CON, CHS, LOOOP, SCOP, INP.0UT,F,T.BKV4,RH01,NNAX,H1XTR,  113*10 
lNA<LTC,MAXPM,irS,B<VAl  003720 

e PHST  PART  IS  TO  CONVERT  IHPEO.  VALUES  ZN  PERCENT  PROM  003730 

C fAS!  XVI  OP  S TO  PERUNIT  ON  9<V».  003740 

IPd.FO.O.)  SO  TO  10  003700 

Z«d*8KVA)/(S*100.l  003760 

2B«Z0*BKVA/(S*100.I  003770 

RETURN  003700 

C THIS  SECTION  CONVERTS  VALUg  IN  OHNS  TO  PERUNIT  ON  9 KVA,  003790 

11  IP(PH.EQ.1>  BKVA«9<VA/3,  003000 

EMC  1000,  *VP*VP)  /BTVA  003010 

Z-Z/ZB  003020 

Z0«Z9/Z9  003030 

IPIPH,  EQ,  II  BKVAMKVAl  00  3040 

RETURN  003090 

SNJ  003060 

OVERLAY  t BASIC,  1, 01  ppjprw 

PROGRAM  INPUT  003000 

C THIS  PROGRAM  REAOS  IN  THE  BAS!  CAS!  LINE  OATI,  TH0  OPTIONS  ARE  »R0-  003090 
C VIDEO  POR  INPUTl  1)  LINE  DATA  INPUT  AS  INPE]«nCES  PER  UNIT  LEMSTN  003900 
C (HIRE /CABLE)  OR  PER  CENT  INPEOANSE  ITRANSPORNERSt , NITH  THE  CONNER-  003910 
3 SION  TO  *ER  UNIT  ACCONPLISHEO  3V  TO!  COMPUTER)  OR  2)  LIN!  OATA  INPJT  003920 
C AS  "RAN"  OATA,  I.E.  HIRE  SIZE,  HIRE  TV»E,  LENGTH  OP  RUN,  TRANSPORHER  003930 


e SIZE,  TRA  kSPORHER  CONNECTION,  .INE-LIN!  VOLTAGE,  ANO  NUHBER  OP  »NASES003940 
e IN  THE  CIRCUIT.  THIS  IS  THE  HI  HI  HUN  OATA  RSOU1REO  POR  THE  PROGRAM  T0003490 
C RUN  UNO'R  OPTION  2.  IP  OTHER  INPQRNATION,  SUCH  AS  STRANOINC,  E3JIV.  003960 
e SPAS I NS,  OR  TRANSPORHER  IHPEOANCES  (PER  CENT)  ARE  AVAILABLE,  THESE  0039*0 


C HAT  BE  INPUT  AS  NELL  UNDE*  OPTION  2,  NITH  RESULTINS  IHPROVEO  ACCURACTOO 3900 
0 OP  THE  RESULTS.  003990 

ENTECER  CON, CMS, SCOP, OUT  00A000 

COMMON  /COHA/CON, CHS, LOOOP, SCO®, INP,0UT,P,T,BKNA,RH01,NNAX,HAKTR,  006010 
1NAXLTC,NAXPH,ISVS,9KVA1  004020 

CONNON  /SAVE/IERR  004030 

COHNONPCONST/  N9US,NL,ISS,I*V,LL1 (LL2.LL3, LL4,NOTR,IZ,NOLTC  006040 

t,ITRl,  ITR2,  PTOL,  OTOL.NLC  004090 

IttO  PORHIT (IX, "ERROR  IN  INPUT  PARAMETER  IMP  COOE.  PLEASE  REPER  TO  P006060 
1ROSRAN  INSTRUCTIONS.-/!  S060T0 

IP (IMP, ST .l.OR.  INP.L  T.C)  SO  TO  100  004000 

IP(INP.EO.O)  CALL  0VERLAT(9NPASIC,t,l(6NRECALLI  006090 

tPdNP.EO.il  CAL.  OVERLAVdTSlSIC.l.E.BMRECALL)  004100 

IP(S0N.n,1.0R.C9N.C0.S)  RETURN  004110 

tPi:ON.E0.6.AM>.  (SCOP.EO.O.OR.SCOP.IQ.2))  RETURN  004120 

IPT0UT.C0.19)  RETURN  994139 

IPdERR.NC.  9)  RETURN  904160 

CALL  BUSIN(OUN)  004190 

IP(IER((.NC.O)  RITURN  004160 

SAIL  OROCR(O)  004170 

RCTURN  , 004100 

IBB  4RIT!( 1,1100)  004190 

RCTURN  004200 

IMS  004210 
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1 SUOROUTINE  OUSIN(OJN)  (04220 

went*  con,chg,sc3p,out,:o5Ec,a,c  o.-»2so 

IONNON  /CONA/CON.CNG.LODOP.SCOP.INP.OUT.F.T.BKVA.RHOl.NHAX.NAXTB,  004240 
lSAXLTe,NAXPH,ISYS,5KVAl  004250 

• :onnom  /coN6/LisAti45s>,Liss(i55S),G(i450),B<i4S0),p<2SS),Q<250>,  gowns 

I.PN9C50>,PNANG(50),LY51<25(II  ,LT?5<250),TA»(250),TH5I250)  ,¥(250),  004770 

2TnX(790), IU8PPI250I , ANG (2501 ,IBUS(250> ,OB»(250) ,U5P(3000I  , 004200 

35i.S5ANE(250)  ,LPMA( AO), LIST (»50>,IU6»( 250), 3515(250), DNAXIPBO),  004250 
4)BPP(2«0> ,UBPP(30S0> , J5P(3000), J}PP( 3000) , ICCI2S0) ,0LP(25() , 004300 

10  5201(14  501  iZOO <14501 ,50 14 (75 01  , C95EC (250) ,OLQ (250)  , IPHASE (290)  004310 

3ON5ON/C0NC/  NA(250> ,ND(250) , JCD.  (10001. 3JI1000), 100(250)  004320 

30N5f)N  /CONST/  N5US,  NL,  ISS,  IPY.Lkl,  -L2.LL3,  LL4, NOTR.IZ.NOLTC  004330 

l.ITRl.ITRt.PTOL.lTDL.NLC  004340 

30NN0N  /SATE/  IE«  004350 

10  tOOO  FOAH1T(I2,I3,A10,2"S. 0,4/10.01  004360 

toot  *0*51T(1X,"T00  NONT  SLACK  SJS5SS  - AOOITIONAL  ONE  OECLAREO  IS  ",  (04370 

1I10/1X,"  BUS  NO.  ",  1 3 , " BUS  0»T»  CATO  NO.  - ,13/1  0(4300 

toot  FOONA T (tX . "TOO  NANV  P¥  BUSSES  • LAST  ONE  DECLARED  IS  ",A10,  004350 

t"  9US  NO.  ",I3,"  BJS  DATA  CUB  53.  “,I3/>  0(4400 

00  ' 1003  FO*5AT<///1X,70(1H*> /1«,1M*,60X,1H*/1X,1M>,16X,"SUNNARI7EO  INPUT  5004410 

tJS  OATAI  PE«-UNIT-,T71,lt<»/t*,H»,T2t,"LIlTEO  ST  ASCENOINS  O'JS  NU5004420 
tSERS*.T71,lM*/lX,H»,6SX,H»/lX,70(lMM//>  0(4430 

t(04  rOONAT<TSO,"PONER"/TS,~NO.*,TP,-TY»I",T12,-V(5AS>-,T2(,  (14440 

l-*(A5G-0e6>“,T34,“tEAL",T42,"5TA:TI/E",T54,“0(4lN»",T64,  004450 

CO  t*R(NAXI"//(lX,I9,  3K,Il,3X,rt«3,3<,F),  4,2X,F9.5,1X,F9.5,2X,F0.4«  004460 

I2X.P5.4II  (04470 

1005  P005IT (06,14,14.2/7.5,13)  0(4560 

10(6  FOONAT (T3 ."PROJAAN  CONTROL  3AR1  50T  IN  PRSPER  F3RNAT  00  L0CATI05.  004450 

IIAOS  NITN  KCTM303  ",  36,"  IS  PEBJIRES. “/)  0045(0 

10  1014  FOONAT  (IX, "BUS",  13,"  SOUL)  52  CONNECTED  TO  A LINE  OUS  OF  TH2SA5E.  004510 

1:NE:<  INPUT  LINE  LIST  FOO  MIS  BJS  5UN9ER."/)  004520 

1015  FOONAT (IX, "BUS  LIST  SN3UL3  NAT?  5US",I3,“.  CNECX  BUS  INPUT  OATA  F0004530 
to  POSSIBLE  NISSI5G  00  EXTOA  SJS  3AO)."/)  (04540 

tX0*IFV*(  0(4550 

SB  0Et)<5,t(05>  A.IT01, IT02.PT 3L,5T3L, 5LC  0(4560 

"■MLOFLON  004570 

tP(O.NE.C)  CO  TO  501  0(45(0 

SO  to  1*1 ,NBUS  0(4550 

01(0(9,1000)  10BI1)  ,1  BUS  II),  5’JSNASEd)  ,T(I) , ANCIt)  ,P(I)  ,Q(X) ,35N,  (04600 

40  1SNX  0(4610 

IF(nB(I).(Q.3.(50.IXX.NE.()  GO  TO  1(0  B(46Z( 

IFdSB (I)  .EQ* 3. (50. 1 XX,  EQ. (I  IXX«t  (04630 

tr<nB(I>.(Q.2)  IPT«IPT«1  0(4640 

IFdPV.6T.50>  CO  TS  1(1  ((4650 

45  tr<Vdt.EQ.(>  ¥<I)*1.0  (04660 

*d)>PTI)/«KVA  0(4670 

)UI*Q(I)/BKVA  (04600 

]NIN(I)aONN/BKVA  (04650 

)NAK(I)>QNX/BKV(  0(47(0 

50  ' LI5T(I)pIBUS(I)  0(4710 

ONCd)  *.01745325*  A5G(I)  0(4720 

10  T3  t(  0(4730 

t((  (RITE (1,1(01)  0 JSNANE(I) , tOil(I)  ,t  0(4740 

IERR*IERR»1  0(4790 

95  60  TD  t(  (04760 

1B1  (RITE ( 1,1(02)  (USNA5E (t) ,I(JS(I) , I (04770 

IERRKTERRP1  004700 
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mmmmr 


« 


Tl 


TO 


M 


h C3MriNue 

imhmm.ne.o)  aetuan 

Jill  LS0MTC1,IBUS,I),NBJS,5,V,AN5,P,3,I09) 

SAU  ISONTIl.UST,  0,  NOJS.S.AUSNAIE,  JMIN.fHAX.S.O) 
c too»s  201  and  »2  cnejk  that  e»:h  lime  bus  m«s  loao  bus. 

10  211  XX«1,NBUS 
)0  292  <JJ*1 . ML 

rr<LTM«(jj*.EQ.rius(rrn  so  ro  211 
292  JONTINUE 
SO  TO  B91 
291  JONTINUE 

S LOOM  299  AMO  29S  CMEJN  TMAT  EA5M  L9A0  BUS  MAS  A LINE  BUS. 

30  299  IA*I .ML 
tP(LINA(XA).EQ.9>  S3  TO  299 
10  29S  J9-1.MBJS 

I7(LINA(IA)  .EQ.  I9UT  ( JB> I SO  TO  299 
290  JOMTTMUE 
SO  T9  092 
209  JOMftMUE 

IFI0UT.EQ.2.OM.OJT.  TO.  9.09.  3UT.  El.  191  MET  JON 
4NITT  ( 1. 1993) 

10  299  I«1.MMU5 
AMS(I>«ANC(I)M7.  2)979 
299  JOMTTMUE 

4NITM  1,1999)  II BUS I X) .1091 X) ,V( I), AN6(X) . MX)  ,3(X)  ,QMXN(I>  , 
llM9A(T).t«t.NMUSI 
10  299  .X*1.M9US 
AMSIT I »AN6(X  )•« 91T90S20 
290  10MTINUE 
SO  T3  009 

091  4MXTTI2.1919)  XSUSIXI) 

SO  TO  099 

092  MMITX (2,19191  LINA(IA) 

60  T3  099 

093  4MXTEI 2,1999)  C 
099  XCMM*XCNN»1 

9MITS (1,1999)  (IOUS( X ) , X09(I) ,4 ( X ), AM6(X> ,*( I) ,3 (X) ,OMIM(X) , 
i3MlX(T>,X*l,MB3S> 

4MXTX (2,* ) "ANCLE  VALUES  XM  M90XANS* 

999  METJAN 
EMI 


999299 

999999 

999919 

999920 

099939 

999990 

999909 

999990 

099070 

999990 

099900 

999099 

99  9010 

099920 

999930 

999090 

909909 

999090 

999079 

999999 

099000 

990900 

•90919 

•90929 

990930 

000990 

990900 

•90969 

•90979 

•90999 

•90900 

•90190 

•90119 

•90129 

•90139 

•90199 

990109 

•90199 

990179 

•90199 

990109 


116 


3VCRLAV  (9ASXC.1,  1) 

nkhh  linoata 

sonp.ex  z,zo,zn,v,zog,7o*g 

HU  NN,L,ll,L2 

INTEGER  PM, C, S9, E8, STR.COM, CMC, SCOP, OUT, CN.CONEC.TC, ID 


005200 

1(9210 

(09220 

009230 

005200 


COMMON  /CONA/CON.CNJ.LCOOP.SCOP.INP.OUT.F.T,  9KVA ,RH01 ,NNAX ,N*XTR,  009250 

inakltc.naxpm.ists.bkvai  009200 

COMMON  /COMB/LINA (1050) , LINO (1050), 5(1450) ,9 (1490) ,P(250) ,0(250) , 005270 
1.PNB(5  0),PHANG(50),LTR*(2SO) ,LTR9(750) ,TA»( 250) , THN(250> ,V(2J0> , 005290 

2TNK(?50>,IURPP(250>,1NG(250>  ,T«'US(2S0>  ,DB» (250) ,UDP(3000 ) , 005290 

39USNAHE(250),LPHA(50),IXST(?S1),IU3P(250),QMTN(250),QNAX(250),  005  300 

039P*(2S()  ,U8PP<3005)  ,UNP(30i)O),J3PP{SOOO),ICC(25O>  ,OLP(250>,  005310 

(ZOIltOOO)  ,Z  00(10501 ,901*  (250)  , CONES  (250)  ,KQ(250)  .IPHASE  (250)  005320 

CONNON/COMC/  NA (250) ,NN(2S5> , JCO. (1000) ,3U(1000) ,108(250)  005330 

COMMON  /CONST/  NOUS, NL.ISS, 1*0, Lll,LL2,LLl,LL6,NOTR,IZ,NOLTC  (05300 

1,ZTR1,ITR2,PT0L,3T3L,NLC  005350 

30NNON  /SAVE/IERR  005360 

200  FORN*T(2X3,F5.0,I2,F6.0,I2,I1,FT,0,I2,F4.0,F6.0,5F5.0,I1,2F6.0,I1) 005370 
1(00  FORMA T (IX, "ERROR  19  MIRE  SIT'  IN»UTI  LINS  0*Tt  CARO  NUN9ER  '*,15,  009300 
1-  PLEASE  REFER  TO  PROGRAM  IN5TRUCTI3NS."/)  005390 

10(1  FORMAT  (IX, "INVALID  TRANSFORMER  SIZE/VOLTASE  RATING  I LINE  OAT*  CAROOSOOO 
13  NUN8ER  ", IS,"  P.EAS?  REFER  T3  PROGRAN  INSTRUCTIONS, "/)  005010 

1(02  'ORNAT (IX, "INVALID  TRANSFOPNER  V3LT AGE  IN>UTI  LINE  OATA  CARO  NUN5005020 
1ER*,I5 ,-  PLEASE  refer  TO  PROGRAN  INSTRUCTIONS."/)  005030 

10(3  FORNAT (IX ."ERROR  HAS  RESULTED  IN  POSITIVE  AND  ZERO  SEQUENCE  INPEOA005000 
1NCES,  ZERO.  CHECK  OATA  ENTRIES  }N  CARO  NiH9ER",I5/)  005050 

1(00  FORNAT (IX, -NUH9ER  JF  LTC’S  INPUT  EXCEEDS  NAXLTC*  ~,I5,  "LINE  005050 

DATA  CARO  NUN9ER  ",I5/I  005070 

1(09  FORNAT (IX, "NUH9ER  3F  LINES  INPJT  HAS  CXCEEOEO  NNAX»",I5,“.  LINE  1005050 
INPUT  OATA  CARO  NUN9ER»",I5/>  005090 

1006  FORNAT (IX, "NUWER  3F  PHASE-SHIFTERS  MAS  EXCEETEO  HAXPM«“, T5, -.  LI005500 

IRE  INPUT  OATA  CARO  NUH9ER>",lS/>  (05510 

1007  FORNAT (1X.-NUH9ER  3F  TRANSFORMERS  NAS  EXCEE0E3  N*XTR«“,I5,".  LINE005520 

1 OATA  CARO  NUH3£R>",I5/(  005530 

1(00  FORNAT (IX, "PROGRAN  ERROR!  STATEMENT  MO.  5(((  SHOULDN’T  REACH  THIS  005500 
l»OINT  IF  XO  IS  LESS  THAN  5.  0E8UGM"/)  0(5550 

1(10  FORNAT (IX ."ERROR  ON  INPUT  LINE  CARO  “,13,"  WITH  SB  ",I3,"  AN3  E9  "005560 
1,11,*.  CHECK  CARO  FORMAT  AN3  VALUES."/)  005570 

1(11  FORNATdX, “ERROR  NITH  10  OR  C VALUE.  LIME  CARO", 13,"  KITH  S9«  ",  005500 
Itl,*  AMO  E9«  ", 13,"  ."/)  005590 

1(19  F0RN1T(///1X,70(IH’)/1X,1H*,«9X,1Hp/1X,1H’,T25,"LIMOATA  SU9R3UTINE005600 
1*,T7I,1H’/1X,1H*,T70,"*SSEN3LE3  INPUT  LINE  DATA  (0HNS)",T71,1H»/  005610 
21X,1NP,60X,1H’/1X,70(1H’)//)  005620 

1(20  FORM* T(///1X,70)IH’)/1X,1H’,55X,1M*/1X,1H*,T25,"LINOATA  SU9R3UTINE005630 
1",T71, 1H’/1X, IN*, T19, "ASSESS. S3  INPUT  LINE  OATA  (PER-UNIT) ", T71,  005600 
21H»/1X,1H*,60X,  lH’/lX,70(!H’)//>  005650 

1021  FORNAT (5X,"CON3UCT3R  N3.  ",I1/5X,"FR0H  - TO“,SN,"RE(Z>",SX,"IN(T)"005660 
l,0X,-RE(Z0)",7X,«IN(Z0)"/6X,I3,2X,I3,3X,0(F10,O,3X)/)  005670 


1(22  *0RN*T(5X,"TRANSF3RNER,  FIXED  NO. 


l»X,“IN(Z)",OX,"RE(ZO)",7X,"IN(7fl)"/SX,I3,2X,I3,3X, 
2A(»10.A,SX)/3X, "TAP", 5X, "CONES  CC0S*/2X,  ’7. 5.SX,  13/) 


. 1 3/5X, "FRON  - T0",5X,"RE(Z) ",  005650 


005690 

005700 


1(23  FORMAT (5X,"TRAMSFORNER,  AUT3.  NO.  ",I3/5X,"FR0N  - T0",5X,"RE(Z)",  005710 
10X,"IN jZ)",OX,"RI(ZO)",7X,*IN(20)"/5X,I3,2X,I3,SX,  005720 

24I»10.4,SX>/3X,"TA»-,SX,"C1NEC  CD0E*/2X, F*.  3.0X,  13/)  005730 

1(26  FORMAT  (5X, "TRANSFORMER,  LTC  NO.  *,IS/SX,"*RON  - TO**,5X ,"RE (Z)  ",  00  5760 

llX,"IH(Z)“,0Xl"RE(Z0)’*.7X,-IN(Z0)"/iX,T3,2X,I3,3X,4(F10.6,3X)/5X,  005750 
2*TAP*,7X,“TNM",7X,"TNX",5«,  "CONES  S30E"/3<  ,1(»7.  5,3X)  , 3X  ,13/)  005760 


I 


■HPI 


( 


ft! 


» 


»• 


81 


W 


II 


III 


IN 
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1075  FORMAT (5X,"TRANS*0RNER,  PHI S*-SNIFTER  N9.  ",I3/SX,"FR0H  - TO",SX,  885770 
1*RE !?>", 8X, "IMCZI  ", 8X, "RE (Z9 >", 7X, "IN (ZO)"/6X, 13, ZX, 13, 3X, 91*10.9, 005780 
tJXI  /5X,"TAP“,7X,“P-I»NG",5*,  "CONES  C90E"/3X,F7.5,3X,F9.9,6X,IJ/)  085798 

1876  FORH1M5X, "SERIES  CAPACITOR  99.  ",I5/SX,"FR0H  - TO“,SX,  005900 

1"RSIZ)",8X,"IH!Z) ",8X,"RE (Z0)",7X«"tN(Z0t"/6X,I3,ZX,I3,3X,  005010 

791*10.  9,3X>/>  009820 

1077  F0RNATI5X, "SERIES  REACTOR  93.  ", I3/SX ,"FR9N  - T0“,5X,“REIZ>“,  005030 

19X,“IHCZ> ", 8X,"RS(ZO)",7X,"tN!ZOI  "/8X, 13, »X, 13, 3X, 91*10. 9,IX»  71  005990 

1070  FORMAT I3X, “OUT  C90E  15.  P»INT  0*  LI900T8  CAROS  FOLLOWS."/  005850 

11X.-S9  EO  »P  19  L C PM  S SIR  9H  SJ  STRJ  ONCG  OHGG  REZ9  19005860 
7ZN  N r,  REZ  I9Z  CN"/37X,"PMI  9S  T99M  THXX  T»I",11X,"TC“7)  005870 

N«NL»NOPM»NOLTC*NOTR*LL1*LL»*LLS*LL8«0  005800 

tF(9JT.EQ.l>  G9  TO  707  005090 

tF(9UT.EQ.7.OR.0UT.Ea.3.08.9UT.E3.5.OR.0UT.C0.0>  GO  TO  709  005900 

tFOJT.EO.lOl  GO  T9  709  005910 

4RITS I 1,10701  005970 

SO  T9  789  005930 

707  4RITE! 1,1019)  005990 

709  IFOJT.EQ.15)  WRIT*!?, 10791  005950 

710  R£8D(5,700I  SB,E8,VP,t9,L,C,PH,S,ST8,0H,VS,TMNN,THXX,TPI,7N,TS,Z,  005960 

IIH  005970 

IF4E9, EG. 0)  GO  T9  930  005900 

IFIOJT .EQ.15)  SO  T9  971  005990 

IFISEQ.0)  S*RKVA  000000 

Z8S*V»*VP*tt00/S  000010 

N»N*1  000070 

IF! V*.  EQ<  I. OR.  10.  E3.  0.9R. PN.  EQ.  0)  59  TO  099  000030 

nl»nl*?  000090 

IFINL.GT.NWOX)  GO  T9  055  000050 

IF1I9. LT. 5)  LL1*LL1*1  000060 

IF!I3.Ea.0>  GO  T9  960  000070 

IF1IO.GT.  11)  GO  TO  060  006000 

SO  T9I711,717,300,900, 508, 500, 500,500,070, 030)  10  000090 

C THE  FOLLOWING  CALCULATES  RNO  F9R  COPPER  AERIAL,  AWO  SETS  CONSTANT  '7  000100 

711  *7*. 8030  000110 

RH9*10. 06*1 (791. »T)/766.)  000170 

SO  T9  719  000130 

C THE  FOLLOWING  CALCULATES  RHO  F9R  ACSR  AERIAL,  ANO  SETS  CONSTANT  F7I  000190 

717  *7*.  830  000150 

RH9*17.39*(I77B.»TI/Z53.)  000100 

S THE  FOLLOWING  SECTION  CALCULATES  THE  OC  RESI STEMS*  (OHHS/HILE),  006170 

C ANO  ME  AC  RESISTANCE  (OHMS/HUE)  SISE9  ON  ME  IN»UT  TEHP.  ANO  000180 

C ANO  FRE9UENCY.  806190 

719  OCRES* (RHO/ l.98*S)> *5780.  000700 

RHR*F7*SQRT (F/OCRES)  000710 

9ER*!7309.*  (09.  •RNR**9)  ♦RWR**8)  /197950.  000770 

9Et»(576.*RNR**7-R1R**6)/?I09.  000730 

9ERP«(-115Z.*RHR**S»RNR**7)/1893Z,  000790 

9EtP»(197.*RH*-RiR»»5)/389.  800750 

ACRES*  (OCRES*RNR/Z.l  •((BCR*9St»-9CI*SER*(  /(BEIP*SEIP*BEQP*8*R®))  000700 
C TH*  FOLLOWING  SECTION  DETERMINES  ME  *1  FACTOR  USED  TO  CALCULATE  096770 

C CNR  0*  THE  CONDUCTOR.  IF  STRI N9INS  IN'O.  IS  NOT  INPUT  WITH  THE  006780 

C OATI,  AN  AVERAGE  VA.UE  OF  FI  IS  ASSIGNEO  RASED  ON  CONDUCTOR  SIZE.  006790 

C TWO  DIFFERENT  ROUTINES  ARE  USE9!  ONE  IS  FOR  COPPER,  ANO  THE  OTHER  006300 

e ZS  *OR  ACSR.  006310 

triSTR.CO.t.ANO.IO.eO.ll  69  T9  778  006370 

IF1STR.CQ.0.AN9. 10. EQ. 7)  S3  TO  771  006330 
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c 


c 


119  tFI».EQ.2>  GO  Tl  216  0(6360 

IFIST0.EQ.J7*  FI*. 963  0(6390 

tF13T0.CQ.19l  Ft*. 969  006360 

tFfST0.EQ.12)  FI*. 313  0(6370 

tFlSTO.EO.7*  FI*. 622  0(6360 

120  triSTO.EO.3)  FI*.  642  0(6390 

tPISTO.EQ.l)  FI*. 776  0(6600 

SO  T3  217  (06610 

216  IFIST0.EQ.S6)  FI*. 99  006620 

tF!ST».E0.30>  Fl*l. 056  006630 

129  tF(ST0.E0.26)  ri*i.006  0(6660 

tFIST0.EQ.6l  GO  TO  222  006650 

SO  T3  217  0(6660 

220  tFIS.GT.500000)  rl*.883  (06670 

tPtS.EO.SOOOOO)  FI*.  876  0(6660 

130  tPf  S*  EO. 650600.  30.  S.  EQ.  600006)  F1*.S69  0(6690 

IFIS.  L£. 35000 0.  AND. S.GT .21160 6)  ri*,891  0(6500 

IFIS.  EQ.211600)  rl*.  865  0(6510 

tPlS.  EO.  167800)  FI*.  6675  006520 

IFIS  E0.13J100.3R.S.EQ.  103508)  F1*.S22  006530 

135  tPlS.  EQ.83690)  fi*.8»2  0(6560 

IF1S-EQ.66370.3R.S.E0.52630)  FI*. 816  0(6550 

IPIS.LT.52630. 613.  S.GT.  20820)  FI*.  51  (06560 

tFIS.LT.26250)  FI*.  776  0(6570 

SO  T3  217  (06560 

160  221  tPfS.GE.  266800)  fi*,9h  (06990 

222  IFIS.  IT. 266 600.  610.  S. ST. 6 13 90)  FI*.  3757  0(6600 

iris. EQ.61690)  FI*. 516  006610 

IFIS.  CO.33120)  FI*. 569  0(6620 

IFIS. EO. 26230)  FI*. 506  006630 

165  C THIS  SECTION  CALCULATES  GHR  10$),  660  THEN  TIE  INDUCTIVE  REACTANCE  006660 

C OUT  T3  ONE  FOOT  RADIUS  (X*.  OHHS/HIlE).  THE  SON3UST0R  SP6CING  006650 

e FACT 09  ION)  IS  THEN  D-TERNINE3.  IF  A VALUE  r0R  OH  IS  NOT  IN»UT,  006660 

e A DEFAULT  VALUE  IS  ASSIGNED  9ASED  OV  THE  LINE  VOLTAGE.  THE  IN-  006670 

C OUCTIVF  REAC.  OUE  TO  CONO.  SFACINS  1X0)  IS  THEN  CALCULATED  ANO  006680 

190  C AOOEO  TO  XA  AS  THE  TOTAL  AC  133.  REACTANCE.  THE  P3S.  SEQ.  IH-  006690 

C FEOANCE  12)  IS  FORNEO,  AND  MULTIPLIED  5Y  THE  CONDUCTOR  LENGTH  IN  006700 

C NILES.  006710 

217  3S*rl*SQRTf !S*7 «S56E~7) 73.161 992 6) /12.  006720 

tFtOS.EO.O)  GO  T3  659  0(6730 

199  (A»6.657E-3*F*ALOG10fl./OS>  0(6760 

tFIN.CQ.1)  260,216  0(6750 

210  IF1D3.EQ.0..AK>.VP.LE.25>  33*6.6}  006760 

IF10H.EQ.0..ANO.VF.ST.25)  33*12.  57  006770 

(0*6.  657E*3«F«ALOG10IOh)  006780 

160  ACIN3R*XA»XO  0(6790 

2*;3PLXIACRES,ACIN3R>*L/5760.  (06600 

S THE  FOUONING  SECTION  CALCULATES  THE  ZERO  SE).  INPEDANCCI  0(6610 

RE«6.766E-3*F  0(6020 

(E*6.965E*3*F*AL3G10 16665606. *RH31/F)  006830 

169  201*ACRCS»RE  0(6660 

Z02*XA»XE-2.«xn  (06650 

Z(«CNPLXtZOl,ZO2)*L/52S0.  0(6660 

tMTC.EQ.O  900,230  006(70 

C THIS  SECTION  AOJU5TS  ZERO  SEQ  INPEOANCE  FOR  S90UN0  MIRES.  0(6660 

170  C VARtAOLES  LISTEO  IN  I3STRJCTI33S  ARE  E1UATE0  AS  FOLLONS1  006690 

e STRS*T3NNI  NG-TC1  03CS*THXXt  3HS6*T»I»  SG*VS.  ROUTINE  USES  0(6900 
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C SECTION  214-217  T3  COlCULlTE  X*  »H0  ICUS  FO?  6N0  NINES. 
230  1*1 

tFIVS.EQ.O)  CO  TO  23? 

SMS 

IF(T“NN.EO. 9)  GO  TO  235 

ST9*TMNN 

SO  TO  214 

232  IFII0.EQ.1)  GO  TO  234 
3*133100. 

SO  TO  235 
23*  3*103500. 

235  ST2*0 

SO  TO  21* 

2*0  IFIT4XX.NE.  0»  SO  TO  241 
TNXX*4. 

241  X02»4.6S7E-3*F»»LOG10<THXX) 

IFIT»I.NE.O)  GO  TO  242 
TPI*15. 

242  IFITC.1T.  21  TPI*1. 

<OS*V.65TE-3*F*»uOS10(TPII 

20S*»C«ES*3/TC*5? 

204*3*X»7TC-3*X03/TC*X* 

Z9S*CNPLX<203,204) 

IFI20G.EQ.OI  GO  TO  059 
205*22 

20»*XE-3»X02 
?OIS*CHPL XI 205,206) 

20*20-ZOAG*ZO«G*L/(S2SO.*ZOS> 

9*0 

TNXX*TC*THNN*TPI*N5*0 
SO  TO  400 

C THE  FOUOMING  SECTION  PROCESSES  ILUIINUN  OS  CXSLEt 
300  Ll*l'1000. 

IFIM.EQ.  31  GO  TO  320 
2F1S.GT.133100I  GO  TO  302 
IF1S.EO.  1331001  GO  TO  303 
!Ff $, GT. 56370)  GO  TO  394 
1F1S. EQ.66370)  395,306 
SO?  IFIS.  EQ.167000I  SO  TO  307 
(FIS.  GT. 250000)  SO  TO  306 
tFIS.  EQ.250000)  309,  310 

303  ?*:«*LX(.1665,.031S)*ll 
20«SNFS.X(.  4977,.  1 722)  *L1 
SO  TO  900 

304  IFIS*  EQ.  105 900)  311,312 

305  2*;9®LXI. 320,.0599)*L1 
20*;mPLX(.7116,.42S6)*L1 
SO  TO  900 

306  IFCS.NE.41740)  GO  TO  315 
2*:9®IXC.  5225,.  066?)  »L1 
20*C9PIXC.  0495,.  SOU  )*L1 
SO  TO  900 

307  Z*:n*LX(.  1205,.049)*L1 
20*:nPLX(.426,. 1209) *11 
SO  TO  900 

300  IFIS*  EQ.350000)  313,314 
309  2*:NPLXt.0S7,.044)*Ll 


f 


lO'CHFLXl. 3932,. 9474) 'Ll 

997499 

CM 

30  TO  Ml 

997699 

310  tMS.  NE.2116I9)  SO  TO  090 

997990 

tOOOLXl.  1025,.  0663) 'Ll 

997910 

CO'Sm’lxi  . 309..  ore?)  »li 

997920 

30  TO  990 

997930 

239 

Sit  l»51'»LXI.209,.0943)'tt 

997960 

70'3HFLX1.S77,.  2S0»t  'Ll 

997990 

30  TO  909 

907960 

31C  tF(S.NE.93690>  GO  TO  STO 

907970 

t»3M*LX  1.  C61S.. 03691  'Ll 

907900 

240 

lO'JHFLXl. 6471,.  3333) 'Ll 

997990 

30  TO  990 

997600 

313  Ca3M*LX(. 063..0402) 'Ll 

997610 

t0*:*PLX(. 2212,. OlfS) 'Ll 

907620 

30  TO  999 

907630 

CM 

316  tMS.  HE. 300000)  SO  TO  090 

997660 

2'30'LXl.  07 3,. 0419) 'Ll 

997699 

tt'SH’LXt. C906,. 03061  'Ll 

99  7669 

30  TO  900 

907670 

31$  tFlS.EQ.16$10)  60  TO  310 

997609 

CM 

la3M»LX1.927,.0711)'Ll 

997699 

tO'39FLXI  1.09,,7S)'L1 

997799 

30  TO  990 

997719 

319  IMS.NE.16910)  GO  TO  900 

997720 

IOI1<>LX(1.315,.  070?)  'Ll 

M7739 

CM 

tO'SMFLXll. 19.1. 07) 'Ll 

997760 

GO  TO  900 

997799 

SCO  IMS.  £0.299990)  SO  TO  TCI 

997769 

IMS.  GT.C99090)  SO  TO  322 

997779 

tMS.GT.133100)  SO  TO  3C3 

997799 

CM 

IMS.  EO.  133100)  326,325 

M7790 

SCI  CaOMLlJI.  1036, .0920)  'Ll 

M7999 

29'OHFLXI. 3096,. 1126) 'Ll 

M7919 

30  TO  900 

M79C9 

3CC  IMS.  GT.5 90000)  SO  TO  326 

M7939 

CM 

IMS.EQ.500000)  327,329 

997969 

3C3  IMS.  EO. 211600)  329,330 

997999 

326  Ca;N»iXt.l70,.09?6>'Ll 

997969 

t9*:MLXI.4692,.  2674)  'Ll 

997979 

30  TO  990 

997990 

CM 

3C9  IMS. HE. 109990)  SO  TO  333 

997990 

Ia:HOLX(.21S,.0956)'Ll 

997999 

19'SMLXl. 921  ,.2916)  'Ll 

997919 

30  TO  990 

997929 

SCO  IMS.  £0.100  0 9 00  ) 331,332 

99  7 9 30 

C79 

3C7  laOMLXt.  0664,.  9579) 'Ll 

997940 

19'CMFLX  1.1693,  .0436) 'Ll 

997999 

30  TO  990 

997969 

329  IMS. ME. 399909)  SO  TO  339 

997979 

I*0<tnXI.00  32,.076S)  'Ll 

997990 

CM 

I9«CHFLXI.2316,.07)'L1 

997999 

30  TO  999 

999999 

3C9  I«:h»LX1.  1179,.  0999) 'Ll 

999919 

I9'S"»LX(. 3699,.  1612) 'Ll 

9999C9 

30  TO  999 

999930 

CM 

339  IMS.  ME.  167999)  SO  TO  999 

999969 

t 
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?(*34Pix<.4066,. 10161*11 
so  to  400 

m t*34»tx<.049,.o5i*Li 
140  t0*3401X<. 0905,. (7411*11 

SO  TO  4(0 

lit  IKS.  NC. 7500001  SO  TO  SSO 
7*34*1X1.  0440,. (90S)  *11 

{(■Sieixt.  IMS,,  out)  *Lt 

745  SO  TO  900 

111  TKS.  to.  41740)  SO  TO  111. 

IKS.GT.41760)  315.330 
m 1*34*1X1.535, .1061*11 
70*3NPIX(. 4(9'.  4>t4»  »lt 
1(0  SO  TO  400 

110  IKS.  TO. 06370)  GO  TO  137 

IKS.NC.03690I  GO  TO  050 
7*3401X1.  776,  .097)  *11 
70*C4P1X1.635'.330»*11 
100  SO  TO  400 

110  IKS.EQ.16510)  SO  TO  330 

IKS.  NC.  26250)  GO  TO  (50 

t*3H01Xt.047'.lll)*U 
10*3401X11. 40  ,.  4661  *11 
110  SO  TO  9(0 

117  1*34*1X1.  344..1)*!! 

7(*30P1X(.7O5,.  371*11 
GO  TO  400 

tll(  7*0401X11.335'.  1101*11 
110  70*5*P1X17.  77„  111  *11 

SO  TO  400 

134  IKS.  ME. 3(00(01  SO  TO  SS( 

7*04*1X1. 043' .07471 *11 
70*0001X1 . 7090, .04771*11 
174  SO  TO  4(0 

C THE  POUOWING  SECTION  04OOESSIS  OOP'S*  DC  CIS1EI 
400  17*1/1000. 

IK04.EQ.il  GO  TO  470 
IKS.  GT.  1(55(0)  SO  TO  4(7 

179  IKS.  EO.1O5500I  GO  TO  4(3 

IKS-661701  404,4(5' 406 
4(7  IKS-1670(0I  407' 4(0 ' 400 
401  1*3401X1. 173"(543l*17 
70*O401X  1.4710..  1100)  *17 
130  SO  TO  4(0 

4(4  IK  S.NC.417401 60  TO  410 
t*04»lXI.  IK,. 00671*17 
IO3401X  1.7(44'.  4774) *17 
GO  TO  4(0 

11*  409  7*04*1X1.7'. 06O9I*.7 

7OO401X  (.9749.. 71(7) *17 
SO  TO  400 

410  17  1 S.NE.0364O)  GO  TO  050 
7*34*1  X 1.155'.  (1071*1? 

140  (l*CN01X  1.4534..  17101*17 

SO  70  900 

717  IP  I S.NE. 11310(1  GO  TO  G*( 


(GG050 
(0(060 
000(70 
0(0(00 
((((40 
(0(1(0 
(0(110 
(0(170 
0(0130 
(00140 
00(190 
(0(160 
0(0170 
(0(1(0 
(0(190 
0(07(0 
0(0710 
(0(770 
(0(730 
0(0740 
(0(750 
(00760 
(0(770 
0(0790 
(00790 
(0(300 
0(0310 
0(0370 
0(0330 
(0(140 
0(0 150 
0(0160 
(0(170 
0(03(0 
00(390 
(0(4(0 
(0(410 
(0(470 
(0(430 
00(440 
0(0450 
(0(460 
(0(670 
•0(600 
000400 
•00500 
•00(10 
•00S70 
•00930 
0(0440 
•••SG0 
••••60 
00(970 
IIGCGI 
•00540 
006600 
•00610 


c; 


c 


r*«:**PL*  (.3963,.0797)*|.2 
J«  JO  T3  Ml 

mi  (.079,.069i»i2 

ioohplx  (.299af.«>%(i*L? 
60  TO  900 

M9  If  < S.NE. 2116001  JO  TO  912 
190  ?«:i»LX  (.0629,  .06131*1.2 

2I*CHPLX  (. 2306,.  0212)*L2 
JO  TO  900 

610  I7(S.E0.26290)  60  TO  611 

17(S.NE.16910)  SO  TO  690 

99!  2*3NPLX(.  799,.Q732)*L2 

20*CNPIX(1»  01 ,.  739)  *L2 
JO  TO  900 

611  2*3NPL  X(.901,.07ll)*L2 
29>:"PLX(.902,.9*9)*L2 

160  JO  TO  900 

612  17(9*300000)  611,616,619 

613  17(5*  NE. 290000)  SO  TO  090 
1»:9*IXI.  0927  ,.  0666)  *t2 
29*SHPLX(.2O03,  « 0133  > *L  2 

969  JO  TO  900 

616  20NPLXI. 066, .0610) *L2 

EOOHPLXU 1716,. 0006) *12 
JO  TO  900 

619  17(9>  NE.  390000)  SO  TO  990 

370  2*3HPLX(.071,.0736)*L2 

20*eNPLX(. 1791,. 0911 >*L2 
JO  TO  900 

690  17  ( 9. 6T. 290000)  SO  TO  621 
17  I 9.EQ. 290000)  SO  TO  622 
979  17  ( 9. 6T. 133100)  SO  TS  623 

17  ( 9. EQ. 133100)  626,629 

621  t7  ( 9. 6T. 900000)  SO  TO  626 
17  ( 9. CO. 900000)  .27,620 

622  E*39*LX(.  070,  .0776)  *L2 

900  20*CNPIX(. 2006,. 0910) *12 

JO  TO  900 

623  17  ( 9. EQ. 211600)  629,630 

626  t«:*PlX(.llT7,.011>*L2 
10«:nPLX(  .369,.  1661  *12 

909  SO  TO  900 

629  17  I S.NE. 109900)  SO  TO  633 

2»5NPIX(.  1660,.  0)69)  *L2 
20*CNPLX(. 6063,. 10661 «L2 
SO  TO  900 

990  626  17  ( 9. CO.  10000  0 0 ) 631.632 

627  2«39>IX  (.099,.  030)  *12 
20*C6PIX(.  106,.  0296)  *12 
SO  TO  900 

620  17  ( S.NE. 390000)  GO  TO  660 

399  OONPU!  (. 0692,. 069)  *L2 

29«CNPLX(.t696,,0616)*l2 
SO  TO  900 

629  2*5NPl X(.  0069,.  0916)  *L2 
20«C9PLX(. 2917,.  0720) *12 


000620 
000630 
000660 
000690 
000660 
000670 
000600 
000690 
000700 
000710 
000720 
000730 
000760 
000790 
000760 
000770 
000700 
000790 
000000 
000010 
000020 
000030 
000060 
000090 
000960 
000070 
000000 
000090 
000900 
000910 
00  0920 
606930 
900960 
600990 
600960 
000970 
060900 
006990 
600000 
009010 
009020 
000030 
009060 
009099 
009060 
009070 
009000 
009090 
009100 
009110 
009120 
009130 
009160 
009190 
009160 
009170 
009100 
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I 


Ml 

so  ra  900 

009190 

930  IF  ( 5. HE. 1670001  S3  TO  090 

009200 

t»:mx  1.0969,.  00901*12 

009210 

70«CN01X(. 2906,. 10991 *12 

009220 

so  ra  9oo 

009230 

*•9 

931  Z* Ji*lX(.  09  02..  0369)  *12 

009290 

ZO*C»01X(. 0959,. 0 1S7> *12 

009250 

SO  TD  900 

009260 

932  tF  15. NE. 79  0000  ) 6}  TO  090 

009270 

Z*:n01X(. 096,. 09521 *12 

009290 

910 

Z0«3NP1X(. 0729,.  0222)  *12 

009290 

so  ra  900  . 

009300 

933  IFIS-91790)  936.939,935 

009310 

939  Z*:i*lX(.33,.t06)*.2 

009320 

70 *5901X1 .9 29,. 299) *92 

009330 

Ml 

so  ra  900 

009390 

935  XFtS,  EQ. 66370)  53  TO  937 

009350 

IFI3.NE.03690)  53  T3  050 

009360 

7*59»LX«.17,.097)*L2 

009  370 

?0*:*IFtXC.9  76,.20S)*L2 

009300 

900 

50  TO  900 

009390 

936  IFIS. EQ. 16510)  59  T3  930 

009900 

tFIS.NE. 26250)  60  TO  050 

009910 

t*59FLXC.52,.lll>  *L2 

009920 

70*:hFLXC  1.  956,  .260)  *12 

009930 

925 

so  ra  900 

009990 

937  2*3NPIX(.220,.1>*12 

009950 

Z0*SNFIX(.616,.22)*12 

009960 

SO  T3  900 

009970 

930  7*5901X1.01,.  1191*12 

009900 

950 

20*0901X11, 0..295) *12 

009990 

60  T3  900 

009500 

990  7FIS.NE.300000)  SO  TO  950 

009510 

7*5N*1X<.  071,.0736l  *12 

009920 

20*5HOtXI. 1751, .0511) *12 

009  930 

905 

SO  T3  900 

009590 

C 

Oil  TEONSFORHER  PROCESSING  ENTERS  »T  TNIS  STOTEN£NT  TO  UPDOTE  TEE 

009550 

e 

NOTE  SOJNTER.  a SNICK  IS  hod*  TO  3ETEENINE  if  TNE  NOXIHUN  NO.  3r 

009560 

c 

TR1NS*3RNERS  NOS  SE£N  EXCS£0£3t  IF  NOT,  0 9R0NCN  IS  N«OE  TO  TH£ 

009570 

c 

aPPRO»RIlTE  STOTENENT  NO.  TO  JON"L£TE  »R0CESSIN6  OF  THE  PORTICULOR 

009500 

990 

<9 

<# 

TTO£  3*  TRONSFORHER.  IN»E3,  KEEN  r;*B,|S  PERCENT, 

009590 

e 

TXFE  IN»E0.  CON  BE  IN  ONHS.PER'INIT , 3R  NOT  SOECIFIS3.  TC  *aRI09t£ 

009600 

c 

CONTROLS.  O-NOT  SPE3FISO, 1*IN  SENS, 7*19  PERJNIT.  70E  IS  B»SE 

009610 

c 

IHOEO.  3F  TXFR.  PERUNIT  IS  CONFER!  £0  TO  OENS  NMSN  TC*2. 

009620 

500  9OTR*N0TR*l 

005630 

999 

IFIN0TR.6T,  NOXTR)  SO  T3  657 

009690 

c 

F01104IN6  3 STOTENENTS  019CK  C 533£S  6 TO  10  FOR  FIXED.TGUl, 

009650 

c 

a NO  aUT3  TXFRS.  C38ES  6 T3  10  IE?  *3R  3 RINSING  txfrs. 

009660 

IF(J.  6T,  5,  a NO.  1 3.  E3,  &)  GO  T3  350 

009670 

tFC.GT.S.aNO.IN.ES.T)  60  T3  350 

009690 

950 

iFie.eT.s.ario.io.ES.S)  so  ra  ooo 

009690 

SO  T3  (056,090,050,950, 519,500, 700,000,090,650)  10 

009700 

c 

THE  F SHOWING  SECTION  PROCESS! 3 FIk£0  TRaNSFSRNERS 

009710 

510  112*112*1 

009720 

IFIOO,  6T.  230)  SO  T3  052 

009  7 30 

995 

IFITOI.EQ.O)  T»I*1.0 

009790 

iaoo*9o 

00  9790 

t 
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* 


c 


trCTO.EQ.  1>  60  TO  <61 

trcrs.ea.oi  c a rj  jit 

tu  so  to  mi 

111  tr  C»H.CQ.3>  S«S7S. 

tr  CS.6T.500I  60  TO  *20 

tr  cs.ce.  iooi  so  to  ioi 
tr  C'.CC.M>  60  TO  *02 

66*  tr  Cf.6C.2fl  GO  TO  *03 

tr  cs.ce. ioi  go  to  sot 

tr  CS.GC.ll  60  TO  *0* 

SO  TO  0*1 

**i  tr  cvr.6T.2.*>  so  to  so* 

tr*  tl«.0037*»CS-100»*3. 3 

*•. 00t» CS-100 >*3. 1 
SO  TO  SOS 

*12  tr  C*P.GT.2.S>  60  TO  SOT 
tl«. 010*  CS-S0>*2. t 
tr*  O*.02*  CS-50 1+2.1 

SO  TO  MO 

*03  tr  CVP.GT.2.S)  S3  TO  MS 
21»”,  OOt*  CS-2S)  +2.S 
C«.I01MS*2S)«2.0 
too  SO  TO  MS 

sot  tr  cvr.6T.2.s>  so  to  *o* 
11*. 02*  CS-1*)»2.2 
<«.03S3*CS«  101*1.* 

SO  TO  MS 

t*S  MS  tr  C0P.GT.2.S>  GO  TO  *10 

tl»2.2 

(a.  f ttt*  CS- 1>  *1. 1 
SO  TO  9*0 

•*6  tr(«*.6T.lS)  60  TO  *11 

tit  flr.OOt**  CS-100)  *3.2 

*■, *0** C*«l 001*2. * 

SO  TO  *00 

sir  trcv>.6T.isi  so  to  sir 

21».01t»CS-M>*2.* 
to*  |a.016*C*«Stl«2.1 

SO  TO  MO 

*••  trivr.CT.is>  so  to  sis 
ll*.000*CS“2S>*2.  3 
«».016*CS-2*> *i.r 
•M  SO  TO  SIS 

SIS  inv».6T.  1*1  CO  TO  fit 

ti»-.*t*r*cs-io>»2.c> 

0».  *2*T*C  S*ll>  *1.  3 

SO  TO  *00 

SIS  Ml  triVS.CT.lSI  GO  TO  0*1 

tl«..lttt*CS-l>*2.( 
(■.0**6*CS-l>+.0 
SO  TO  MO 

*11  trtVr.6T.2S>  60  TO  SIS 
*11  !!•*•  t 

00.02**  CS-100)  *S.  I 
SO  TO  SI* 

•12  trtvr.6T.2S>  GO  TO  116 


•••no 

tMTTO 

*0*700 

00*7*0 

•0*100 

009010 

••*•2* 

00*030 

•IMtl 

00*0*0 

00*060 

00*070 

009000 

00*090 

•0**00 

•09*10 

•1*920 

•09*30 

•09**0 

009**0 

00**60 

00**70 

•0**00 

tt«**t 

•into 

•11018 

01**20 

•1*030 

OlSttS 

OlStSO 

*10*60 

•10070 

•1*000 

•10090 

010100 

•10110 

•10120 

•10130 

•lOltt 

•101*0 

•!•!•• 

010170 

■10101 

•101*0 

•10200 

•10210 

•10220 

•10230 

OltttO 

•102*0 

•10260 

•i*tn 

•10200 

•102*0 

•1030I 

•11310 

•11320 
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tl*s.e 

010330 

01(360 

so  n ni 

(1(390 

111  iri«>.CT.29)  60  TO  tit 

01(300 

Z1*S.C 

(1(370 

M.NIMS'MIH.I 

01(3(0 

SO  TS  Ml 

010390 

S16  IFI**.GT.2SI  63  TO  Ml 

(1(6(0 

21*5.  2 

(1(610 

01(620 

SO  T3  SOt 

01(630 

SIS  (1*6  S 

(1(660 

(■.00029*  IS-100I*6.J 

tltOSt 

SO  T3  500 

(1(660 

S10  (1*6. f 

01(670 

(■6.3 

(1(6(0 

SO  T3  500 

(1(690 

«((  crc»H.co.Ji  s«j.*s 

oiosto 

IFie.6T.SI  GO  TO  Sit 

• 

01(910 

tFtVF.GT.  36.91  G3  TO  S21 

(1(520 

(•M(Tt9FI*2.2*(l.'»LOG10t»»M 

01(930 

SO  T3  579 

01(560 

•Cl  «*S32T(VFI*(.*(1./U0G(VF1I 

01(950 

60  TO  srs 

(1(500 

•SO  («2.*SO«TtTF>*6.0*tl.mOG10IV»M 

(1(970 

STS  (■3NPIX(0.,X> 

01(900 

IFin.CO.tl  60  T3  650 

01(590 

trttn.CQ.7t  eo  to  mo 

•1(6(0 

irito.eo.oi  eo  to  mi 

- * * 

010610 

SO  T3  SOI 

•10620 

MO  tr(FM.eQ.S>  S*3.(*S 

010630 

0«*3»TIZ1*71-X*X» 

•10660 

hnniii«ii 

•10690 

triio.eo.oi  60  T3  650 

•10640 

trtio.eo.7t  eo  to  mo 

010670 

trt3.6T.SI  Z*l* 73(*Z 

•10000 

•01  Z(*Z»3.(*ZN 

M0690 

SO  T3  9(1 

•10700 

TIC  rOLLONIMO  SECTION  MOOeSSSS  OOTOTMHSrSOSCRSI 

010710 

•oo  trtTrt.eo.oi  tfz«i.o 

010720 

U1*L13«1 

010730 

t (00*01 

010760 

trt»M.e0.1>  0W»*9<#»/3. 

0107*0 

z»*ti(00.*«r*«rirsxy( 

•10760 

trt*N.eo.i>  •w(*s<«(i 

010770 

trtTo.eo.n  60  to  ms 

010700 

trtn.cQ.t)  eo  to  us 

010790 

z*zot*z 

•toooo 

669  SO  T3t60t.661.606.Ml.067.006.000.t601 

e- 

•10010 

6S0  SO  TOtOSt.OSl.OS6, 601. 607, 006. 050. 0101 

Ok 

* 

•10020 

••1  Z*,6107*Z 

M0030 

661  Z0*Z»300.*ZN/ZS 

010060 

SO  TO.  901 

•100M 

OSt  Z-.6I07*Z 

•10060 

662  ZO*SNnxtO..O.t 

M0070 

SO  TO  991 

•10000 

6*0  Z*.  6107*2 

•10090 
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009 

SO  TO  ««1 

Ml 

oos  ri*i.ir*z 

50  TS  901 
090  Z*.22 9*Z 

ZMZMM,*ZN/a 
SO  TS  991 
097  7*.9107*Z 
007  79*3.  3B*Z«99. *79/79 
60  TO  90S 

TH£  FSLL0MXN6  SECTION  •WCSS'S  LOO  T»F-CH»9GEMt 

7M  nolts«noltc*i 

IFflOLTC.CT.HMLTCl  60  TO  999 
IFIT9I.CQ.9I  TFX.1.9 
1900*79 
00*99/99 

XFf  THOO.CQ.  91  THOO*.  9 
IFIT1IX.CQ.9I  T9XX*l.t 
IFfTS. CQ.ll  60  TS  710 
IFfTS.  CQ.9I  60  TS  319 
Z*7B?*7 

719  XFI91. CQ.lt  BK9l«9K/t/T. 

ZB* t 1999.  *99*991  /0<99 
Z9*Z*399.*ZN/  190*  Z9t 
XFI9H.CQ.lt  BK99*9<991 
SO  TS  991 

TNC  FOLLOHXN6  SCCTXOO  •KOCCSSIS  *Ht IC-SMIFTE9S t 
999  109H*N09M»7 
LL9*90FH/2 

IFfLL9.6T.H9XPHI  60  TO  990 
IF(T»T.eO.OI  T9I.1.9 
1990*99 

IFITS.CQ.9t  60  TS  339 
IFfTS.CQ.il  60  TS  991 
Z*Z*ZBC 

991  XFC9H, CQ.lt  BR99*B<99/3 
Z9*f  1999.  *99*991 /9<99 
IFC9H.  CQ.lt  BK99*B<991 
9*990. *ZO/ZB 

SO  TS  t992.  992.992.993.993.  993.999.9991  C 
991  XF(e.CQ.ll  70*2* 23*7 

XFIS.CQ.2I  Z9*Z*(3.».0*TI 
IFfe.eO.3l  79*1.9*2*. 29*T 
Z*1.9*Z 
SO  TS  991 

993  XFte.eO.9t  Z9*Z 

tFte.C0.9t  Z9*l.Z*Z*.27*t 
tFfe.CQ.Ot  Z9*»  9* Z*. 2 7*T 

Z*1.9*X 
SO  TO  991 
099  19*2.  2T*Z 
Z*«  9*7 
SO  TS  991 
999  Z9*I.9*Z 
C*.B*T 
SO  T9  90S 
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I 


I 


o 


t 


in 


in 


IH 


in 


in 
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e TMC  F0UONIN6  SECTION  •10CESSES  SE'IES 

COFOCITOKSI 

SHOTS 

IO»'<MCHU 

StlOSS 

IFCTC.  EQ.  S)  60  TO  lit 

si  toss 

ifito.eq.e)  wm« 

St If so 

n«t 

fllflf 

SO  TO  SSI 

SltfES 

SEE  n*»»'»P/l 

stiffs 

SttfOS 

stiffs 

ZSl-TloXE 

stiffs 

ti>ciniii.  ,-zsi* 

OUSTS 

SO  TO  SSI 

SttfSS 

C THE  FOUOHINC  SECTION  PROCESSES  SESIES 

NEoerout 

SttfSS 

SIS  SOUIC-NONESCn 

SttfSS 

iFire.Eo.st  eo  to  see 

St If IS 

IFITI.EQ.Z)  ZaZ'ZSE 

SltfES 

ZE*Z 

SttfSS 

60  TCI  SSI 

SttfOS 

. S3E  Z1«**»*F/S 

SttfSS 

Z«:n»LX(S.,71> 

SltffS 

«!■!  SME-3»F»»L0610  tOffftf  S.»-<Il/r| 

SUITS 

ZS1>Z1*XE 

SttfSS 

ZSONFLXIS. ,201) 

SttfSS 

SO  TO  901 

S117SS 

SSO  4SIT- 12,1000)  N 

St  1710 

60  TO  SSO 

StlTEf 

Sfl  4111:12,1001)  N 

S1173S 

SO  TO  ISO 

St 1700 

•f?  4SITE12.1 00?)  N 

StlTSS 

60  TO  000 

St  176 S 

SfS  4NITT (2.1003)  N 

SttTTS 

OSS  IE»>IEM«1 

StlTSS 

SO  TO  210 

StlTSS 

OSS  NNITf  12.1300)  NSXLTS.N 

sttsss 

IEM>IE**»1 

sttsts 

1ETIHN 

SHOES 

SfS  4SITE 12.1039)  NNIX.N 

S11S0S 

IESS»TENf *1 

StlSOS 

NETOTN 

SttSfS 

SfS  41IT? I2.1SSS)  NIXM.N 

sttsss 

tEH>im»i 

SHOTS 

NETOTN 

sttsss 

Sf7  4NITE (2.1S3T)  NOTTS, N 

sttsss 

IE*f«IEft*»l 

SttfOS 

NETiSN 

sttsts 

Off  NNITrif.lSSS) 

SHOES 

lEH'lEOMI 

SttfOS 

SO  TO  210 

SttfOS 

SfS  4*ITE(2,1S1S>  N.SS.ES 

stiffs 

tf*l*IEft*»l 

stiffs 

«ETIf»N 

SHOTS 

OSS  4NITI (E.1S11)  N.SS.ES 

sttsss 

IESN*IEM*1 

stiffs 

1ETU1N 

St  ESSO 

SOS  s»s. 

112010 

IF1I0.LT.  3)  60  TO  SSI 

SI  TOES 

*t»F/SS. 

S12S3S 
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90S 

Ml 

Mi 

700 

roo 

Mi 

Ml 

rn 

rn 

rn 

rn 

Mi 


rt*ri**iNACtrt 

Z2*7i*»IH»GCZ0t 

M*MI. 

ti'MiKiuni 

911  21*C19S (21 
22»C»HS(20I 

trirr.GE.  u s«o. 

trm.Ea.o.iNO.  22.10. o>  go  to  *93 
51.1  »EIWNtTCZ,ZJ,  »■*.»»,  SI 
IMO'JT.EQ.IOI  G3  T3  903 

I7I3JT.EQ.2.0*.  3JT.C3.3.O0.}JT.  il.9.09.3jr.EQ.II  GO  TO  909 
tr (0JT.E0.li  2-7*0»*V7*100#/9<(0» 
tri3JT.EQ.lt  20»20*»»*4l»*1000J9</» 

Ml. 

SO  T3I9I*. 902.902, 90*. 90J, 909,909, 90S, 90T.90tt  IO 
90<  KNITill, 10211  Lit, S8»E9.2»70 
SO  T3  909 

903  ootrm.iorzt  l.2,ib,eo,2,2o,ti>i,c 
SO  T3  909 

909  OQtrr « 1.10231  LL3,SO,ES,Z,ZO,T»I,C 
SO  T3  909 

900  MOtT'll, 10291  N0.T5»SBf£B,2«  ZO.iri.f MNN,  T9XX. 5 
SO  n 909 

900  «*tT!( 1,10291  119, 90, E9, 2 ,Z9,T»I,09,C 
902  49IT2 ( 1,10201  N3Sft>, 30,29,2, 20 
SO  T3  909 

900  4*tT!d, 10271  N09E93 ,SS,E9, 2 , *0 

909  iri3JT.EO.lt  MIL  »E»ONIT (2, 70,74, 0», St 
ira»H«sEisoi.N:.3.tNO.S9.9E.9t  i»t»SE(*ii»rM 
tr(t*H>SE  (ESI. ME.  3t  tiOMt(!ll>M 
iXnniiMEo 

.I99CNU*S9 

.IN9(NL*1I-SB 

lINOINt-lt-EB 

3 thion.this  section  rso  thise-smitth  toons. 

1FC0H.EQ.91  GO  T3  910 

INI  (NO7MI-E0 

IMOtNONNI-SO 

irNMNOTM-ll-Sl 

LMOINOrH-ll-EB 

THING (NOT  H-ll-ON*. 11799329 

•HINT.  (NOTMI—  PHONG  (NOHM-lt 

910  trm.LT.Ot  GO  TO  *20 
LTOKNOTOI-SO 
LT09CN0T0I-E0 
TO»(NOTOt-Tri 
TNNINOTOt  -TNNN 
TNSIHOTOI -THXX 
IC5(NOTOI -C*IOOO 

920  T-1./2 

S(NLI  -OEOLITI 
9 (NL I *01  HOG  (VI 
20t(NLt-OE0L(20l 
ZOt (NLt-OINOG(20l 


012090 

012090 

012000 

012070 

012000 

012090 

012100 

012110 

012120 

012130 

012190 

012190 

012100 

012120 

012100 

012190 

012200 

012210 

012220 

012230 

012290 

012290 

012200 

012220 

012200 

012290 

012300 

012310 

012320 

012330 

012390 

012390 

012300 

012320 

012300 

012390 

012900 

012910 

012920 

012930 

012990 

012990 

012900 

012920 

012900 

012990 

012900 

012910 

012920 

012930 

012990 

012990 

012000 

012970 

012900 

012990 

012000 
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SES3ffl5^T" 


r« 


ni 


ni 


rw 


709 


TTI 


01 Z610 

IIZOZO 

012040 

012090 

921  t74  0UT.ttt.19t  SO  TO  on 

112090 

4tIT?4 2.2001  a.!9.V7,ID.L.:.74,S,Srt.04.4S,T444,TM)n,T7I, 

Ztt,  T 3.  Z.  112001 

i:n 

otzozo 

on  i OUT  Tout 

OIZOIO 

so  to  no 

012091 

on  trtmt.ttc.it  tttuw 

ntroi 

t740JT.CQ.19l  otrun 

012710 

sou  i3otTt2.ii»«.itM9,m..v.s.4,  zot.zoi.it 

012720 

SOU  ISOtTIZ.LTU.LMO.NOTt.f.TOO.TiO.TOK.I.ISet 

01 2740 

SOU  lSOtT42.L74l..74S.I4074.1.a4t93»O.I»l.lt 

0127O0 

>0  M 

012790 

009  SOOtS III*I 

012700 

tt*0 

012770 

• J«1 

012700 

>0  090  tal.Nl 

012790 

trtitititzt.CQ.it  so  to  nz 

012000 

ooo  triitMiat.NC.ji  oo  to  ooo 

012010 

309134  JI»COItCCt  Jt  ♦! 

112020 

to  n on 

012131 

no  j»j»i 

012090 

so  ro  no 

012091 

n?  tt-tm 

012000 

090  SOOTtMUC 

012070 

OOUSaJ 

012000 

Off JON 

012090 

m 

012900 

3 
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r;  n 


jxirlot  <Msxc.it«>  oisbio 

•twui  LINEI  •11920 

REAL  l 01 2930 

conrlex  7,zo,2n,7z,z2o.v  oizboo 

turtle*  9n,c,sb.sb,-dn,cmj,s-i»,)ut,cm,C)xsc  012900 

CONNOR  /COHO/CON, CMC, L9D0®,  SCO®, IN®, OUT, 9, T,BX/0,RM01,NNOX,N6XTR,  012960 
IN0«LTC,N0X9M,ISTS,3<V01  012920 

COMMON  /CONB/LtNO (1690) ,LlN3(t690>, 3 (1690), 9(1690), 9(290), 0(290),  012900 
1.9N9(90I,9MONG(9!),LTR6(290)  ,LTR9(»J0>  ,T0®(  990)  , TMN(  200)  ,9(200)  , 012990 

22NX1290), 10099(200) , 096(200) ,1* JS (2i0 > ,09* (290) , U9® (3000 ) , 013000 

39USN7NE(290>,L9H0(90>,LXST(»«i)>,  tl)9»(290),3NIN(250),QN0X(290>  • 013010 

6)0*9(290), U999(  30  01)  ,JB»(  3090)  ,J9®9(  3000) ,ICC(200) ,0l® (290),  013020 

9201(1690)  , 209(1600),  §010(219) ,CONEC(290> , JLO (290) , I9M0SE (290)  013030 

C0NN0N/C0NC t NO (2901  , NO (200) , JO). (1000), 0J (1000) ,108(290)  013060 

CONNON  /CONST/  N9US,NL,ISS,I9i#,LL1,LL2,LL3.LL6,N0TR,I2,N0LTC  013090 

1,2291 , ITR2,9TOL,3TOL  ,NLC  013060 

COMMON  /SO«e/IE92  013070 

1000  90 (NOT (223, 99,0, 12, 1 1,090,0, *6,  0,390,  0,22, 22, 276, 0,11)  013000 

1001  90RN»T(IX,"IN9UT  C))f  ERROR)  •!)•  3020  COOE  NOT  COMPATIBLE  01  TO"  013090 

1*  *0*  COOE.  LINE  CORO  NO.  *,TS,"  NITM  SB«-,IS,-  ONO  EB«",IT/)  013100 

1002  90RNAT(1X,"ER90R  ON  LINE  COR)  N).",I3,"  NITM  SB*", 13,"  0N0  EB**,I3013110 

1,"."/1X,"»0LUES  09,20  OR  90  N)T  /OLIO."/)  013120 

1003  rORN0  MIX,  "ERROR  NOS  RESULTS)  IN  99SXTIVE  *NO  7E90  SEQUENCE  INPE90 013130 

1NCES*  ZERO.  CNECX  OOTO  ENTRIES  )N  CORO  NUMBER", IS/)  013160 

1006  *ORN6T (IX, "NUMBER  39  LTC*S  IN®JT  EXCEEDS  NOXLTC*  “.IS,  "LINE  013190 

OAT!  CORO  NUMBER  ",I9/1  013160 

1009  90RN9T (IX, "NUMBER  )9  LINES  IN®UT  MOS  EXCEEOEO  NN0X«-,29,".  LINE  1013170 
199112  0020  CARO  NJN3!R*",I9/>  013100 

1006  90RNOT (IX ,-NUMBER  39  9NOSE-SNI9T ERS  MAS  EXCEE9E0  NOXPM«",IS,-.  L2013190 

1NE  IN9UT  OOTO  CORO  NUMBER*-, TO/)  013200 

1007  90RNOT(1X,-NUN3ER  39  TR0NS93RNERS  NOS  CXCEEOEO  N0XTR*-,I9,-.  LINE013210 

1 OOTO  CORO  NUMBER**, 19/1  013220 

1019  *0RN(T(///1X,70(1M»)/1X,1N*,09X,1M*/1X,H*,T29."LINEI  SUBROUTINE"  013230 

l,Tri,lM*/lX,lM*,T20,-OSSEN9.E)  INPUT  LINS  OOTO  (0MNS)“,T71,1M*/  013260 

21X,1N*,60X, IM*/1X, TO (IN*) //)  013290 

1020  *ORNOT (///IX, 70 (IMM /IX, IN* , 69X ,1M*/1 X,IN«, T29,"LINE2  SUBROUTINE", 01 3260 

1271, IN*/ IX,  1M*, TIB, "ASSEMBLE 3 IN»UT  LINE  30T0  (®ER-UNITI",T71,  013270 
21N»/tX,lN*,60X,14*/lX,70(lN*>//)  013200 

1021  90RNOT19X, "CONDUCTOR  NO,  ",I7/BX,"9R0M  - TO",9X,-RE(2)",0X,"IM(2»"0l3290 

l,OX,-RC(20»“,7X,-tN(2O)-/*X,IT,2<,I3,SX,*(9tO.6,3X)/)  013300 

1022  *ORNOT(9X, "TRANSFORMER,  FIXED  NO.  ",  1 3/9X,  "9R3N  - T0",9X,“RE(21",  013310 

tlX,-IN(I)-,8X,»RE (20)".7X,-IM(70)“/1X,T3,2X,I3,3X,  013320 

261»10.6,3X)/9X,"TO*",9X,"C3NE5  G30E-/3X,»7.9,6X,IS/>  013330 

1025  FORMAT (9X,"TR0NS'0RNER,  OUT3.  NO,  ",I3/SX,"9R0M  - TO",5X  ,"RE ( 2) *,  013360 

lSX,"IN«)-,OX,-RE(20)-,7X,-t*(7O)-/»X,I7,2X,I3,3X,  013390 

26(»l«.6,3X)/3X,-TA»",9X,-C)NfC  C)OE"/2X,90. 3,6X,I3/)  013360 

1026  90RNOT(SX,-TRANS90RNSR,  LIC  NO.  -,IS/SX,"*RON  - T0",9X,"RE(Z) ",  013370 

t»X,-INIZ)",OX,"RE(Z0>",7X,"IN(70)"/6X,I3,2X,I3,3X,6(910.6,3X)/0X,  013300 
2*209-, 7X,-TMN“,7*,"TMX-,»<,"C)NEC  C)0E"/S«, 3(»7.  9, SX)  , SX ,13/)  013390 

1029  »0RN1T(9X,-TR0NS*3RN£R,  9M0RE-SNI9TER  NO,  -,I3/9X,"9R0M  - TO*, OX,  013600 
1*RI(2)",0X,"IN(2)-,0X,-RE(29)-,7X,"IM(20)*/6X,IS,2X,I3,3X,  013610 

26(»10,6,3X)/9X,-TO»-,7X,-9NON'!-,IX,-CONE3  C00E"/3X,97, 9, 3X,90. 4,  013620 

SOX, 19/1  013630 

1026  90RMOT19X, -SERIES  C09OCXT3R  NO.  -,II/9X,-9R0N  - TO",SX,  013660 

t*R2(2>",0X,-ZH(2>-,3X,-RC(70>-,7(,"!N(Z0>-/6X,!3,2X,I3,3X,  013690 

26(*19.6,3Xt/l  013660 

1027  FORMAT  (9X ."SCRIES  REACTOR  NO.  -,IV»X,“FRON  • T0",9X,"RC(2>",  013670 
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19X,  *14  «Z>  “,  OX, “RE  cm  ",7X,“t  41701  ”/»X  <13, 2X,I3,3X,4(*  10.  6,3X1711  113460 

1020  F0943T  I3X, “ERROR  KITH  TNXUT  P6T6,  LtNE“,t3,"  T0“,I3,“  4UST  460*  013460 

•t  1106*  IHXE06NCE  X6LJE  OTHER  TH4N  ZE93.-/I  013500 

N*4l*NOTR*NOP»»N3Lr:«LLl*LL2*LL3«LL6*a  013510 

trOJT.EQ.lt  M TO  ! 013530 

IF  10  JT.EQ.  2. 0R.0UT.  £0.3.  OR.  3 JT.  *3.5,  OR.OUT.EQ.lt  60  TO  11  013530 

trOJT.E0.10!  60  T3  10  013540 

65  4R1TTC1, 10201  013550 

SO  T3  10  013560 

2 4X13*11,10161  013570 

10  9E1 31 5,10001  SB,i6,V»,IO,*4,L,ZZ,ZZ0,PHt,r»I«TNNN,THXX,C,IUNIT,ZN  013530 
1,C4  013560 

▼I  IF1E9.EQ.  01  60  T3  930  013600 

C THE  r3lL0MIN6  3 ST6TE4ENTS  6L3CX  TX*R  3 COOES  6 TO  10  *09  013610 

S FIXE3.TCUL  4 NO  AUTO  T<*9S,  COSES  S-ll  06E  *09  3 41N0INS  TX*RS,  013620 

IF(e.6T.S.«NO,IO.E3.5t  60  T3  900  113630 

tFIC.  6T. 5. 6 NO, tO. E3<  61  60  73  900  013640 

75  trtC.  6T.5.6N0.I0.E3. 7t  SO  T3  900  013650 

4*4*1  013660 

tr<V».£Q.0.OX.IQ.E3.0. 0R.X4.EQ.il  63  TO  690  013670 

4l*Nl*2  013661 

IF(NL.6T.NN6X>  SO  TO  655  013691 

•0  Zl«C4BStZ2l  013700 

Z2*C6BStZZ0t  013710 

IFIZ1.EQ.0.6NO.Z2.EQ.0I  60  TO  953  013720 

IFII3.6T.4. 6N0.I3._T.6I  S3  T3  20  013730 

1F1I3. EQ. 61  60  T3  30  013740 

09  IFltO.EQ.  101  63  TO  35  013750 

LLl*lll*l  013760 

1FIL.EO.OI  L*l. 0 013770 

Z-ZZH  013700 

tF<Z71.NE.0l  63  TO  15  013761 

60  tFITxt.NE.OI  GO  TO  14  013000 

ZZ0«3.5*ZZ  013610 

SO  T3  15  013620 

14  ZZ0*2.7*ZZ  013030 

15  tO«ZZO«L  013040 

65  .xf.  013050 

60  T3  601  013060 

CO  40tR»40TR*l  013070 

tFIL.EO.0. 6N0.tU4TT.SE.lt  L*S<»6  013600 

tFCIJ4n.EQ.2t  Z?xZt»B<»6*L  013050 

too  tFHUNlT.EQ.2l  ZZ0*m*BXV67L  013600 

IFIN0TR.6T.N6XT9I  SO  TO  057  013611 

tFlTFT.CQ.OI  7X1*1, 0 013920 

.xO.  013930 

SO  731000,000,000,900,21,22,23,26,000,0001  tO  013960 

105  21  ZxZ*  013650 

ZZ0*ZZ0*J*2N  013660 

tFtZ70.EQ. 0. I ZZOxft  013670 

Z0*ZZ0  013600 

LL2*«LC*1  013660 

115  1693*60  016000 

SO  TO  500  016010 

22  113x113*1  016020 

1600*60  016030 

Z*ZZ  014060 
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zzo*zzo»s*zn 
iFmo.Eo.o.)  zzo«zz 
20«ZZ0 
SO  TO  900 

23  hoit:»moutc*i 

tP<NOLTC.  CT.MAXITC)  CO  TO  059 
tF<TiNN.EQ.0>  T59N*. 9 
ZF<TNXX<EQ<  0)  THXX<1.1 
1 093*70 
Z*ZZ 

7Z0»7Z0*3»7N 
tF<Z70.EQ.0.)  ZZ0»ZZ 
ZMZZO 
CO  TO  900 
29  50PN«N0*H*t 
lU»N0PH/2 

IF<Ll9.CT.N0XfN>  GO  TO  050 
1000*90 

z-zz 

ZZ0>Z70»3«ZN 
(FIZT0.E9.0.)  ZZO*ZZ 

zo«z*o 

SO  TO  900 

>0  io:op«nocop«i 

IF<IJNIT.E0.2>  ZZ*ZZ» BKVO/L 
L«Oi 

z»zz 

IF<ZZO<EO<OI  ZZO«ZZ 

ZO-ZTO 

SO  TO  900 

35  iOT»lC*NONE»CM 

|F( I JNIT. EQ. 2)  ZZ*ZZ*9KX9/l 
.■0< 
z«zz 

tFCZZO  <EQ< 0)  ZZO*ZZ 

zo-zzo 

SO  TO  900 

000  4QITE ( 2«100 II  N.5B.E0 
SO  TO  099 

053  4QITS  (?•  100  3)  N 
tS«>UUM 
SO  TO  10 

059  49IT:  < ?■ 1009)  iOXLTO.N 
SO  TO  099 

055  4«tTZ<2.1005)  NMOX.N 
SO  TO  099 

050  4KZTT  < 2« 1006)  N»X®H,N 
SO  TO  099 

057  tf'tT?<2. 10071  NOXTT.N 
60  TO  099 

050  40TT*  ( 2<  10021  N.SB.ES 

099 

OETJTM 

900  t F<OJT<CQ<1<ONO< I U9tT.CE. tl  Z*Z* 4P*4PM000/9XVt 
tFOJT.EQ.l.  ONO.IUNtT.SE.il  ZO«ZO**»»  VPMOOO/9<»9 
IF<OJT<EO< 1 > 60  TO  901 

IF(IJNIT.CQ.O)  COLL  PENUNIT <Z<ZO<PH<VP<LI 


019050 

019060 

019070 

019000 

019090 

019100 

019110 

019120 

019100 

019190 

019150 

019160 

019170 

019100 

019190 

019200 

019210 

019220 

019230 

019290 

019250 

019260 

019270 

019200 

019290 

019300 

019310 

019320 

019330 

019390 

019350 

019360 

019370 

019300 

019390 

019900 

019910 

019920 

019930 

0t9990 

019950 

019960 

019970 

019900 

019990 

019500 

019510 

019520 

019530 

019590 

019550 

019560 

019570 

019500 

019590 

019600 

019610 


IFIO'JT.EQ.IO)  10  TO  909 

019620 

(F(0JT.EQ.2.0R.OJT.E9.3.OR.0'JT.£3.S.0R.0Ur.EQ.S>  GO  TO  909 

019630 

911 

SO  T3C902,902,90», 90?, 903, 909, <>01,906, 907, 90S)  ID 

019690 

1T» 

Nt 

4RXTE(1,1021)  LL1,SB,E0,Z,70 

019690 

.0  TO  909 

019660 

MRITE( 1,1022)  LL»,S9,E9,Z,Z0,TPI,C 

019670 

!0  TO  909 

019600 

90% 

4RTTr( 1,1023)  LL3,SB,EB,Z,Z0,TPI,C 

019690 

IN 

JO  TO  909 

019700 

90S 

4RITF (1,1029)  N0LTC, SS,Efl,Z, Z0,  T*X,  THNN, T4XX.0 

019710 

10  TO  909 

019720 

906 

4RIT7 (1, 1025)  LL4,S9,E9,Z  ,70, PHI 

019730 

907 

4RIT- (1,1026)  NOJA®,SB,EB,7,70 

019790 

IK 

SO  TO  909 

019790 

900 

4RITE ( 1,1027)  R09E»:,S9,E9,»,’0 

019760 

909 

IFCO'JT.EO.l  ) SAIL  PER  JNIT(  7 ,70,  PR,  4P,L> 

019770 

IF(I®MASE (S9) .ME. 3. AMO. SB. ME. 0)  I PHASE (S9) »PH 

019700 

IF(I»MASE (EB> .ME.  J>  I PHASE! E 9) ,»4 

019790 

IN 

LINA(NL)*EB 

019000 

•IMS(NL) *SB 

019010 

LIMA(NL-1)*S8 

019020 

!.XNB(NL*1I*EB 

019030 

IF(PHt.EQ.O)  GO  TO  910 

019090 

IN 

LP4A (NOPH) *£R 

019050 

LPHJ  (MOPH)«SB 

019060 

'.PHA(N0PH-1)*S9 

019070 

LP4S(MOPH-l)»E9 

019000 

»M1NG(N0PM-1)*®MJ*.  01745329 

019090 

CM 

»HAMS(M0®H)«-P4AMG(M0PH-1) 

019900 

910 

IF 1 10. IT ,9. OR. 10.  GT.O)  GO  TO  920 

019910 

LMA(  MOTR)  »SB 

019920 

LTR9  (MOTR)  *EB 

019930 

TAR(MOTR)  ®TPI 

019990 

CM 

TNM(MOTR) *T  HNN 

019950 

TN((M0TR)  »TM*X 

019960 

tC:(M0TR)-C«IA3D 

019970 

920 

IF(7. EQ.O.)  GO  TO  960 

019980 

f-l./Z 

019990 

>11 

S(ML)«REAL(T) 

015000 

I(H)®A1HAG(Y> 

015010 

rOR(Hl)®REAL(ZO) 

015020 

ZOKNL  >*AINAG  (ZO) 

015030 

G(NL-l) *G (ML) 

015090 

CIS 

KNL*  1 )*B (ML) 

015050 

Z0R(NL-1)*Z0R(NL> 

015060 

2OI(ML-l).Z0I(MU 

019070 

SO  TO  10 

015000 

9S0 

IF(IERR.NE. 0)  RETU9M 

015090 

m 

SOU  LS0RT(2,LIMA,LINB,NL,9,S,9,Z0R,Z0I,0) 

015100 

JAIL  LSORT(2,LTR!,LTRS,NOTR,5,rA*,T4N,TMX,0,X::> 

015110 

SALL  LSORT(2,LP4A,LPHB,NOP4,1, PHANS,  0,0, 0,0) 

015120 

>0  149  1*1,290 

015130 

e 

!Z*NJNBER  OF  CONMEJTXOMS  TO  REF  9 US 

01*190 

tn 

999 

S09C3I  I)«0 

015150 

11*0 

015160 

m 

015170 

>0  990  X*l, ML 

015100 
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tFIlINAIXI.EQ.SI  CJ  TO  ft?  B1S108 

im  triUNtm.Nc.j)  so  to  w ttitii 

30NEC  ( J)*C0NEC(  Jl  *1  81S216 

SO  TO  950  Itlttl 

MO  J-J»l  IIIMI 

SO  TD  MS  HltM 

wr  i7«i»*t  nhh 

ASS  CONTINUE  Mini 

ius>j  nun 

wta»H  Mini 

hi  nirniiUtii  sa.es  Mini 

t(H>!EU»l  SIS3SI 

■ RETURN  MSS1I 

enc  biases 

3V:  RL  A Y (L00FL0.2 » 01  mill 

PROGRAM  FOLFLOH  SISSAS 

COMPLEX  Y ,VA, VB,S,R  StSJSS 

INTEGER  CON.CHG, SCOP, OUT, COMEC.A.C  lll»l 

OIMENMIOM  IOUMISOI  BIS  370 

30NN9N  /C0NA/C3N, CHG.L000P,  S30P.  INF. OUT. F.  T,8<VA,RM01«NNAX,MAXTR,  StSJSS 
INAXLTC.NAXPH, ISYS.AKVAl  StSJSS 

COMMON  /CONS/LINA  (11.50)  ,LIM3  CIA  10)  ,5  (1A50I  ,S  It  ASSI  ,P(256>  ,0(7501  . StSASS 
l.P49(*S),PHANG<53l  ,.TRA  (2*1 » ,lTR3  (230  ) . TA  » (250)  • TNN(2*8I  . V ISIS)  . 01*418 

tTHX(2SSI.IU8PPI2SSI. ANGI2S0I ,IBJS(230I ,DN» (2S8I . U8P| JS08I , S1SA2S 

3IUfXtNE(2SOI,LPHt(IOI ,LIST(»5»I, IUS>(250l,3NlN(?50l,ONAX(75SI,  StSASS 

A JBP* (2SSI ,U8PP( 30001 • JRP( 30081, J3»P( 30001 , ICC (2501 ,OL»(2S01 , St SPAS 

Sisrmssi  ,2BR  (14301.  AOIA (2301, CONEC(2501,0lG (2*01 ,IPM4SE(2S0I  StSASS 

COMMON /COHC/  NO (2591 ,NN(2Sfll  . JC0. (1000), O'J  (10601  ,109(2901  StSASS 

COHNON/CONST/  NSJS.ML, ISS, I *V,LL1,LL2,LL3,  LL4,  NOTR,  H.NOLTC  01SA78 

t.ITRt.  ITR2,  PTOL.OTOL .NLC  StSASS 

C0NM3N/SU8/  §H  StSASS 

1SSS  FORMAT (/Tt6,”*"»»  CONVERGENCE  NOT  0STAINE3  INI"/26X,IA,  SISSSO 

1“  DELTA  THETA  AM3“/20X,IA,"  9ELTI  V ITERATIONS. "V/tX,  StSSIS 

2*8 JS  N0.“,3X, ”V3. T(N*GI",J<,“V3LT(ANGI”,S«, "DELTA  P“,7X,  S1SS2S 

S*0ELTA  0"/)  SISSSS 

1551  *0ANAT(/lX,76(lH*l/lX,lM»,S9«,lM»/l«,tM»,T36,  S1SSAS 

1 "SYSTEM  SUMMARV“,m,lH*/lX,lH»,*SX,lH*/lX,lM*,T25,  SISSSS 

2’CDNVERCENCE  08TAINE0  INI*. T7 1,H»/1X , 1H», T2A, I A. IX,  SISSSS 

J"DEITA  THETA  AN0",T71,lH»/t<,l-t*,T24,IA,l«,  StSSTS 

S"0!LTA  V ITERATI0N5.“»T7l,tN*/lX,lN*,T71,H*/lX,76(lN"l/l  SISSSS 

1552  F0ANAT(//1X,78(H»IV1X,1M», 1st, H"/IX,1M»,T27,  "CALCULATED  LINE  *L381S*90 

INS*. "71,1M"/1X,  1H*,T4,“(TME  LINE  FL3NS  ARE  OEFINEO  POSITIVE  HHEN  FStSSSS 
2L04ING  OUT  FROH  THE  SUSI ",T7 1 .14*/tX , 1M» ,SSX,1M» /IX, 78 (1M"I//TS,  SISftlS 

S*L!NE",T22, “POHER", 1SX,"LIN»-,12«,"P0MER“Y2X,“7R0N”,2X, "TO”,  615628 

ASX, "REAL". 7X, “REACT! VE",S«,'7RON",2*,”TO",5X,"AEAL”,7X,  SISSSS 

s*re»;tive“/>  sissas 

IBS J POAHtTtlX,2tI3,2XI,lX,F9.S,3X,F9.S,*X,I3,2X,IJ,*(3X,F9.Sl/l  SISSSS 

tSSA  FORMAT IT23, “••••••  SLACX  SJS  POHER  ••••••*7118, “BUS  H0.“,T2A,  StSSSS 

l“REAL",TS7,“REACTIVE",TSS,“NAG.“//18X,I3,7X,FlS.S,5X,Ft8.S,SX,  815678 

2»A.5//1  stsses 


S“LINE“,T22, “POHER”, 15X, “LINE*, 12«,“P0NER"/2X,“PR0H“,2X, “TO”,  81SS26 

ASX, "REAL". 7X,“REACTIVE“,S«,'pRON“,2X,”TO*,SX,“REAL”,7X,  StSSSS 

s*re»;tive“/>  sissas 

1BS3  POAHtTtlX,2tI3,2XI,lX,F9.S,3X,F9.S,*X,I3,2X,IJ,*(3X,F9.Sl/l  StSSSS 

tSSA  FORMAT IT23, “•••••*  SLACX  SJS  POHER  ••••••*7Tt8.“8US  H0.“,T2A,  StSSSS 

1“REAL",TS7, “REACT IVE",TSS, “SAG. *//18X, 13, 7X, FIS.  S,5X,FtS.S,SX,  615S7S 
2*A.5//1  StSSSS 

1SSS  »0ANAT(///1X, 78ttN*l/tX,lH»,69X,lM»/tX, IN*, T14, "RESULTS  OF  FAIT  OEStSSSS 
1JOUPLEO  LOAO  FLOH  ANALYSIS',  T71 , 1H*/1X,  1N»,  S1S7SS 

trtS.'ALL  MAGNITUDE  VALUES  ARE  »E R-JMIT”, T71 ,1M»/IX ,1N» , B1S718 

8T1S, “SYSTEM  HAS  *,IS,"  BUSES*  “,I2,“  ARE  TYPE  2. ", T7t , »•/»,  81S72S 

AIH*,T1S,“NUHSER  3F  TIMES  LOAO  RUSES  HILL  SE  CNANCEOtNLCl  •“,  8tS73S 

51 J,".",T7t,lH*/tX,tM»,T28, "CONVERGENCE  T0„ERANCESI“,T7I,1N»/  S157A6 

8lX,lH»,TJt,“PT0L«“,FT.*,T71,m*VtX.tM*,T3t,"QT0l»",F7.S,T71,lH»/  81S7SS 
71X,H*,68X,1MV1X,76(1M»1//1  SIS7SS 

1SSS  FORMAT t//lX,70(lN*IVlX,lH*,68X. 1N"/IX, IN*, T 25, “OUTPUT  TRANSFORMER  S1S77S 
tJArA",T7t,tM»/tX,H»,69X,H»/lR,70(lM*lV/Tl4,"SS",Tl9,”EB",T27,  61S76S 

2"TAP",TJS,"TAPININI  ",T50,"YlPtNAAl"V/(12X,IS,2X,I3,AX,F7.5,4X,  S1S7BS 
377,1, 7X.F7.SII  SlfSOS 

tSS7  FORMAT (V/tX .TOttNM/tX.lH’.SSX,  lN*/tX , tM» ,T 23, "OUTPUT  PHASE  SHIFTEStSStS 
tR  OATS*,  T71,1NR/1X,1H*,68<,IN*/1<,70(1NM //Tt7,"SS*,T22,"ER", T2S,  StSSES 
2“TAP",TJ7, “PHASE  ANOLE(OEG>“//(13X,IJ,2X,I3,3X,P7,5,6X,FN, All  SISSSS 

1888  FORMIT (TSS.-PONER-VTS, "NO. *,T7, "TYPE", T1S, “NAME", T2S,"V*HAGI",  SISSAS 
tTS»,*VCAN6-0€GI”,TSJ,“R!AL*,TST,"*EACTIVE“/VllX,I3,3X,  StSSSS 

2I1.JX,A16,SX,FT,4,4X,FI.4,4<,»9.*,A<,FS.SII  SISSSS 

188B  F0RMAT|/7tX,78ClM»l/tX,tH»,SSX,tM"/tX,lN»,T28,"0UTPUT  BUS  DATA",  815878 
lT7l,tM*/lX,tN»,6»X,lM*/lX,T8(tM»l//l  81SSB8 

1818  F0RN1T(1X,I3,8I,'S.A,SV,FS.A,SV,7«.I,SX,FS.S1  SISSSS 
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HU  *0RH*TUX,-BUS*,I3,*  SH9UL0  «»I  SEEN  IN  REOROEREO  BUS  LIST, BUT  ItlHI 
HASN'T.  CHECK  INPJT  BUS  LIST*/)  BIB til 

•t  lit*  'ORNATTtX.-ERRORl  SUS  KOI  THE  CA.CU.ATE9  EON  BUS”, 13,-  IS  I.  Illltl 

1ERR0R  IS  IN  1010  r.ON  N3JTINE  WHERE  OLP  01  0L1  IS  CALCULATED.  */>  BlStSB 
HIT  F0RNAT(R*,I3>  IlStM 

till  FORNAT(I2,X3,R1I,2’5.I,*F10.H  tltttl 

lilt  FORM  TUX, “ERROR  I NAGNITUOE  OF  SLACK  BUS  POWER  HAS  CXCCC0C9  UNIT  BlBttl 
H 1 0*  9 ON  1000  00  P.J.-/I  BIBtFB 

1070  FORHST  (T3,“I0B  CAN'T  BE  GREATER  THAN  1 IN  L0A9  CHANCE  SOUTINE  BtftM 
1SEE  BUS-,13,"  NITH  RUSNANC“,A18,*  .*/>  BtBttB 

lltl  »OANlTC/lX,70CIHM/lX,70<tHM/lX,tH',T27,“LOA9  'LOW  BUS  CHAN3C  item 

1-,T71,1M*/1X,1H»,T2S, “CHANCE  NUN3ER-,  I3,T71,1H*F1X»IN*,T2*  11*111 

78  2,“NJNBER  OF  BUSES  CHANGED”, 13,771, 1H*/1X, IH*,*IK, IH*/1K, 71  HAIM 

KIT'I  7>  B1BB3B 

1113  F0AHATC/lX,78«lH')71X,lH',&»K,lH'FlX,lH',T2t.“SUS  CHANCE  OATA  II AH. I 

1“,T71 , IN*  /IX,  IN', ASK, IN* /IX, Toll  HM/1  IIAISI 

1IC3  FORHAT  CT3,“PROGRAN  CONTROL  CARO  NOT  IN  PROPER  FONNAT  ON  LOCATION.  01*1*1 
TS  HARO  NITH  KEYWORD  *,R*,“  IS  RE3JIRE3.-/T  HAITI 

USA  P0RN*T(1X,I3,2X,I2,*X,R1I,2«,F9.S,7<,FS.3,*X,*1I.S,3X,F1I.S»  I1AIII 

ITRHIXlalTRl  BlCBtl 

IMNAX3*ITN3  BICIIB 

ITER'ITERR'O  MA11I 

M 4NITE  ( 2.11051  NRJS.IPV.NLC,  »TOL,  JTO.  B1A12I 

C THE  FOLLOWING  SECTION  TRIANGULATES  A NO  STONES  THE  ELEHENTS  0"  IIAISI 

C THE  S'  ANO  B"  HATRICES.  THESE  FLEiENTS  NENAIN  CONSTANT  THROUGHOUT  I1A1AI 

C THE  SJLUTIOH  OF  THE  NH-THETA,  *N9  N«*R»V  EOUATIONS.  THE  FIRST  IIAISI 

e PORTION  TRIANGULATES  S',  ANO  THE  SEC0N9  PORTION  90ES  8",  WHICH  I1A1AI 

If  ; DOES  NOT  HAVE  PV  BUSSES  REPRESENTEO.  HAITI 

e THE  FOLLOWING  LOOP  RESTORES  the  OUHNT  NA  VECTOR  for  THE  S'  I1A1II 

e TRI  ANGULATION.  HAIM 

BO  1 1*1,  ESI  HATH 

1 NA(II*I  11*211 

W N*  J*1  I1A22I 

30  S 1*1, NL  11*231 

IFILTNAIt T.CQ.I.9R, LINSIft ,E3,II  CO  TO  f I1A2AI 

JC9L<N)*LINB<!>  I1A2M 

T*CH«LK«8TII  ,8<III  I1A2AI 

NS  tFITEQ.ll  GO  TO  SON  11*271 

IFfT  EQ.l.t  CO  TO  MS  11*2*1 

Tl*ltNA6(l./VI  MA2II 

IF(Tl.EQ.I)  CO  T9  MS  11*311 

tFITl.EQ.l.t  G9  TO  90S  I1A31I 

111  3tfCN>a>t./*tHAC<l./T>  11*321 

N*N»1  11*331 

t IFtltNAIII. NE.JI  CO  TO  3 11*3*1 

NAtUMNAIJ)  »1  I1A3SI 

30  T9  S 11*3*1 

1H  3 J-JM  11*371 

30  T9  2 11*3*1 

S CONTINUE  11*391 

ISS*NL*2,II  11**11 

30  7 1*1, NR US  11**11 

111  »Ot*lir«BSUH«0.  11**21 

IAS*U(00(I>  11**31 

t*:*IABTNA(I>>l  116**0 

DO  » J*IAS,IAC  11**51 

BSUN*BSUHhOJ(UI  ll**»l 
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• CONTINUE  ll**7l 

I0X 1 T X 1 OSUH  I1IMI 

r CONTINUE  ItIMI 

C THE  FOLLOWING  00  111  .SON  TRIlNJULITCS  THE  *'  NITRI*.  THE  ORDER  0'  llltll 
C TRIINSJLITION  FOLLOWS  THE  REOROEVO  US  LIST  1N91RII  RETURNEO  If  11*919 
C SUSROJTINE  ORDER.  THi  SLICE  IJS  IS  HOI  REPRESENTED  IN  i*.  INI  IS  111170 
C PISSED  OVER  IN  THE  TRIING.  PRCCTSS.  THE  FIRST  INNER  LOO*  IDENTIFIES  016930 
C ILL  RONS  REIOH  THE  I*IH  RON  THIT  Mt.L  SE  EFFECTED  IT  THE  I*TH  RON  01*9*0 
C ELININITION.  THE  F0L.0MIN1  STITEHENTS  INO  SECOND  INNER  LOOP  STORE  11*991 
C THE  OIISONIL  INO  UPPER-TRIINGJ.IR  TERNS  FOR  THE  I*TH  RON.  THF  OSPtNIItftSlI 
C VECTOR  CONTI  INS  I LIST  OF  THE  DII5.  TERNS,  lit)  TNI  IU9PIR)  VECTOR  01*97* 
C CONTRIVE  I LIST  OF  POINTERS  TD  THE  FIRST  ELENENT  OF  THE  UPPER*  11*911 

3 TRIINGJ.IR  LIST  URPTKO  ISSOCIITEO  NITN  THE  I*TH  RON.  THE  JNPTNKI  11*991 
C VECTOR  CONTIINS  I LIST  OF  COLJNN  IDENTIFIERS  CORRESPONDING  TO  EICHI  ll*»ll 
C TERN  IN  THE  U8PTRO  VECTOR.  THE  INNER  00  91  L00»  COHPLETES  THE  11**11 

C ELININIMON  PROCESS  ON  THE  RONS  NEL3N  THE  I *TH  RON.  THE  I*TH  COLONS  *1**21 
C CLENEHT  IS  OELETED  FRCN  THE  N*TN  RON  IDO  30  LOOP! , INO  THEN  IN  11**31 

C CLENENT-IY-ELEHENT  CONPIRISON  IS  HUE  ICTNEEN  THE  I *TH  INO  N*TH  RONS.  I1**M 
■C  N'TN  RON  TERNS  IRE  HOOIOIEO,  OR  HEM  TERNS  IOCEO  IS  IPPROPRIITE  01**91 

C TOO  It  LOOP).  *l**«l 

<>n>i  ittin 

so  in  i*i, nous  m*»i 

IRMaNB (I)  11**10 

IFftOKZRN).  EO.  3)  GO  TO  101  *1*7II 

>*»«»)  •l./NOIKIRN)  11*711 

EUSPTKI-KK  *1*720 

EF1X.  EQ.NOUS)  G)  TO  111  116731 

(«•!  *1*7*1 

00  1*  H.1.I3S  *1*791 

IR-IRNIN)  91*7*1 

tF(I0*(IKl.EQ.3.0R.  JCDlTH).  NE.XRNt  GO  TO  II  91*770 

009LN-1.I  11*710 

IFltR.CQ.NS(LN) ) JO  TO  II  I16T90 

* CONTINUE  116101 

KKMKKKRl  11*111 

IOUN(RKRI«XR  *1*621 

1*  CONTINUE  11*130 

EXUIOOIIRN)  1161*1 

<F<RI»m«IRNl>l  *16*91 

IF1RF.LT.  KI>  GO  TO  1*  ll***l 

ITIST  *RR  01*171 

00  19  J»RX,RF  11*001 

IF1X09 IJCOL < Jl ) .EO. I)  GO  TO  19  B16B9B 

OUUMOUU)  *03*00  91*900 

U8PIKRI—  0U1JI  01*910 

J9P1KKI«X0LIJ>  01*920 

KK*KK*1  016930 

19  CONTINUE  91*9*0 

1*  E*E*1  016990 

IFfKR.NE.ITEST)  SO  T3  17  01*960 

if*P(RR)-0.  01*970 

J0>«(»0  01*900 

<K*REM  01*990 

17  IFIKRK.EQ.I)  63  TO  111  017000 

00  90  N*1,KRK  017010 

XJJ>9  017020 

29  EI-JI001IRN)  017139 
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(Mt»uaui*t 

117140 

00  tt  J*<I.KF 

tl7t*l 

ifiiosijcolijii.ei.ss  so  to  tt 

117161 

K1*JI03(  tOUNINI  1 

t!7!7l 

K*-Kl»NA(IOUH<NltM 

•17181 

IFIKt.lT.Slt  SO  TO  St 

•17ISI 

1FIUJ.C3.1I  GO  TO  31 

•17111 

03  SI  L«K1.<* 

•17111 

IFIJSOLILI.EO.  I9WI  SO  TO  SS 

•171ZI 

St 

CONTINUE 

•17138 

SI 

IF<IRN<K1I.C3.JC0l<  Jtl  GO  TO  3t 

•171t0 

03  St  L'Kt.T’ 

•17158 

IMJC0LUI.E3.  JCO.IJII  GO  TO  SS 

•17160 

SS 

continue 

•17171 

CALL  IOROLIL'1.1,  Jt 

■171lt 

NAdDUNINl  t >Nt  (10  JNIN)  1 n 

•17191 

GO  TO  tt 

•17tlt 

ss 

• H*OU(LI 

•17*10 

CALL  A0N3L (L.-l.K 

•17ttl 

IJJ*t 

•17  *38 

NA  (IOUNfNI  l*N4(I0JN(Nt  t *1 

•17*48 

60  TO  tt 

•17ZS8 

St 

•OXAUMCKII I-93III  UNIXll  1 -8N*3U(  Jt 

•17*68 

60  TO  tt 

•17*78 

St 

IOIAmN«ll-l|.80IA(tSN«ll-l)<tH*0U(  J> 

•17*88 

60  TO  tt 

817*90 

St 

OUIO  OUlLt  •ON* 0U(  Jt 

•17188 

tt 

CONTINje 

•17318 

SI 

CONTINUE 

•173*8 

tit 

CONTINUE 

•17338 

THE  FOLLOWING  00  tit  .OOF  TKIINGULlTCS  •••  It  THE  SMC  NINNEN  AS  1* 

•17348 

MOTE,  EXCCFT  TMT  »*  SUSSES  ME  NOT  NEFNESENTEO  IN  8". 

•1 7358 

30  111  I-l.tSI 

•17368 

ltt 

NAIII  *■ 

•17  378 

N*J*I  • 

•17381 

30  US  1*1. Nl 

•17 398 

IFILI NAIII. CO.lt  63  TO  IIS 

■174*8 

JCOl(NI«LlNt(tl 

•17418 

OU(Nt*t(II 

•174*1 

N*N*l 

•17438 

11* 

IFILtNAIIt.NE.JI  63  TO  US 

•17448 

NAIJt.NAIJIM 

•17498 

SO  TO  ItS 

•17468 

ItS  lijlt 

•17471 

SO  TO  ltt 

■17488 

its 

CONTINUE 

•17498 

ISS.NL-IZ 

•17S8S 

00  117  I*l,NtUS 

•17S18 

SOIIII  MtSUN.t. 

•17S*0 

lAS.JAOOdl 

817530 

IAC*IM»NA(II-1 

•17541 

00  116  J*XAS,riC 

•17SSI 

SSUN*8SUH.0J(Jt 

•17S6I 

ttt 

CONTINUE 

•17571 

•Otllll— 8SUH 

•17SM 

117 

CONTINUE 

•17591 

K*KK* 1 

•176II 
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p#  c 

T ]•  v* 

JO  CM  l>ltWUS 

oircit 

CM 

t*H>NB(X> 

0170C0 

17(109  (I9MI.NE.lt  SO  n CM 

nrcit 

99»9<K>«1./90I*(I9M> 

017CM 

rUOMIKMRK 

117*91 

IF(X.  EO.NBUSI  SO  TJ  COS 

tl7**t 

CM 

(KOI 

017*71 

\ 

00  lit  M*1 , ISS 
IK»I9N(H> 

• 

017*M 

017*99 

IF<X09<X<>.9E.1.09.J:0l<N>.9£.I9N>  CJ  TO  lit 

tl77tl 

00  1M  Li*l»t 

tl7Tlt 

CM 

XFIK.EQ.HSILHM  SO  TO  m 

S177C0 

110  CONTXHJE 

017710 

<«.<«.! 

0177*0 

XOOH<R<KMI< 

017790 

110  CONTINUE 

0177*0 

CM 

ITH!*« 

017770 

<X>J*00(I«MI 

017700 

<F>KI»H«(I9M>-1 

017790 

IF(<r.LT.<I>  GO  TO  110 

017000 

00  119  JaKX.K' 

017010 

CM 

IF(X09(JC0L<  J)  1 .HE.  11  GO  TO  119 

017 SCO 

OU(J|aOU(J>*OMF(<l 

017010 

USFFKK>»JJ(J> 

0170*0 

jommk>«j:jlui 

•17090 

«•«♦! 

•170*0 

CM 

119  CONTINUE 

•17070 

no  <*<n 

•17000 

1 0 

IF(K<. HE. ITCST)  SO  TO  11T 

•17090 

J9FF(KKM0. 

•1 7900 

J«M(«la| 

017910 

CM 

«•«♦  1 

•17970 

117  IFIKKK.EJ.t)  G3  TO  7tt 

017910 

00  19t  N*l,<« 

•179*0 

IJJ«t 

017990 

ICO  <X»J*00(19MI 

•179*0 

• 

CM 

KF.KI.H*  (I9NI-1 

017970 

00  1*0  J'KI.KF 

•17900 

IF(X09(j:0LUII.<l{.t)  SO  TO  1M 

•17990 

K1*J*0D<I0UN(NI> 

010000 

1 

Kt>Kl»9k(IDUN(Nlt>l 

•10010 

I 

CT* 

IFIKC.LT.KII  SO  TJ  13* 

•lotto 

1 

XFUJJ.EI.ll  GO  TJ  1*1 

•10019 

09  t>«  *•<!• <C 

•100*1 

IF(  JCOLdl.XJ.  1*41  S9  TO  1JJ 

•10090 

11*  CONTINUE 

•100*0 

1 

CM 

isi  xfihm(«ii.C3w:)i(oi  go  to  in 

010070 

09  tic  L«<lt<C 

OlOOtt 

Ir<  JCOLdl.EJ.  KO.IJII  GO  TO  119 

•10090 

ICC  CONTINUE 

•10100 

CUt  «J90l(fl>t.  J> 

•10110 

CM 

N* (TOUT  <91  M9t<X0JN(9l  1 »1 

•met 

1 

CO  TO  19t 

•tout 

119  IN-OM.I 

•101*9 

CUL  *J90L(L.-l.t« 

•10190 

N*(I0U9(N>  MN*(X0JN(NI  1 -1 

•101*0 

t 

CM 

IJM 

•10170 

! 

ft 
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CO  T9  t»  nun 

in  a01ICINNIKl>>«B01*tINNCKll>*aN*JUCJt  Blllll 

CO  TO  in  aiesai 

in  boiicxincxo  *it.*oiititNC<ii*ii  *bn*ouc j>  ausii 

m CO  TO  lit  Cl  mi 

in  oucL>ouci.)**N*oucj>  nun 

lie  CONTINUE  emit 

ICC  CONTINUE  nun 

tee  CONTINUE  C1CCCI 

no  jo  m x«i,ncus  nun 

.mm-o  nun 

(CC  <ICtt>CONECItl  HUM 

C THE  EOLLONING  SECTION!  U'  HE  0TPE5T  SOLUTION  ILGONITHNI  C1CSII 

C STITENENT  til  IS  TNE  cNTNY  POUT  *0)  TNE  OELTI-P/OELTI  TNET1  I1IS1I 

SCO  C SOLUTION*  THE  0L*  INN1Y  IS  EONNEO  *S«  PCSPSCI/I  - PCCILO/V.  tllltt 

C I NO  T-tEN  SOL  YEO  EOT  OELTI  THEM.  TNE  JELTI  TNET1  SOLUTION  EON  tlllSI 

e eicn  sus  is  the  ole  ittit  ietet  the  eotmind  ino  nicknino  sunsti*  eiesia 

C TUTIONS.  THE  OELTI  THETI  IS  IJOEJ  TO  THE  EXISTING  BUS  INCLE  TO  lit 3*1 

C UPOITE  THE  BUS  INGLE  IETET  EON  SOLJTIJN.  I1I3CI 

SBC  C ST1TENENT  til  IS  THE  ENTTT  POINT  EOT  TNE  OELTI-OEOELT1  ¥ SOLUTION.  IlITTI 

•8  THE  0.9  INNIT  PEN»OTNS  THE  SINE  EDITION  IS  OLP  MOVE,  EXCEPT  111 311 

C THU  TH-  SOLUTION  OELTI  V IS  TNE  TESULTING  ITTIT.  THE  OELTI  • 111 310 

C EOT  E*CN  BUS  IS  IDDEO  TO  THE  EXISTING  SUS  V0LT1GE  NI6NITU0E  TO  llllll 

e EOT*  TNE  UPOITEO  SUS  « HIS.  EOLLOHXN6  SICH  SOLUTION  ITETITION.  Billie 

sie  tia  <p*o«i  Bteiti 

Ell  <P*e  B1BI3B 

<«e  Btana 

jo  »i  i*i.  nsus  aieisa 

INH.NSCIt  B1BIII 

SIC  EEC  10B  CITNI . EO. S>  GO  TO  Ml  01BI70 

<«<»i  none 

ti<  jinociNNt.ii  aiaiBs 

ie.ii.coneciinni-i  etasaa 

SS.SSUHal.  B1B91B 

3 SB  OB  f SB  Jalt.IE  B1BBSI 

T.TlPNCINN.LlNSCJtl  BtBfJI 

gs«*s*t*gcji  atesia 

IEILINBCJI.EQ.il  GO  TO  ESI  111**1 

THET l.INGCITNt  *INGCLINSC  J)  I B1BBBB 

IS*  IFCTHETl.ST.BI.S)  TNETMSl.t  B1B97I 

iectheti.lt.* ti .st  THEri>-*i.s  aia**i 

BSUN«BSUH.VCLINBC  Jl)  *C*GC  Jt  *COSCTHETII*BCJt  *SIHCTHETIt  I It  MIC 

SS*  CONTINUE  B1BCBB 

PC ■ If  INN) • CSSUN.T  Cl  TNI *GS)  B1BC1B 

SSB  IPIICINN). EO.I)  GO  TO  *11  I1ICSI 

lECVCINNt  . EQ«*»  I GO  TO  III  011931 

JL*CXt  »PC  INN)  /TCINN)  *PC/TCITM)  BICBIB 

JElTlalBSCOLPCTt)  B1BC9I 

IECJELTI.GT.PTOL)  NP«1  BIBSCB 

SSB  SBC  JONTTNUE  B1CB7B 

tECNO.EQ.I)  GO  TJ  If I B1BBBB 

IECITEN.GT, ITNH1X1)  GO  TO  *10  B1BBBI 

is.nsus-s  eiaraa 

00  STB  IS  111711 

SM  Tl.IURPCI)  1)1771 

<S>IUBPII.1I-1  111731 

00  SBC  J-Cl.KS  I1B7II 
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IPIJOPIJI.EI.OI  60  TO  III7H 

JJ«IPOS«J9P(JI)  11(7(4 

OLPf JJI  aOLPl  JJI  *U9P«  Jl  *0LP<  1 1 (1(770 

(*«  CONTINUE  11(7(0 

E7(  CONTINUE  (1(790 

00  (79  I«1,K  (1(000 

(79  9L»(II«0LP<I)»0*»II>  01(010 

JO  (09  I»1,IS  010070 

TC3P*0.  (100JO 

(liiitmi'i)  (1(0*0 

<(atJ9Pt«-t»ll-l  (1(090 

00  (((  J-N1.K?  (1(0(0 

IPtJ9P<Jt.£1.0>  GO  TO  (90  01(070 

JJ*IPOS<J9»(J>t  (1(000 

TEHPaTEHP»U9P(JI*9LPtJJI  010090 

(((  CONTINUE  (1(900 

JL»f<-tlaOLPf«-II*TCNP  (10910 

(09  CONTINUE  (1(9(0 

JO  (»(  1*1 t NOUS  (1(930 

tP<I»(<tl.C0.3l  CO  TO  (90  (1(9*0 

N>(  (1(990 

00  (((  Jal.NOUS  (1(9(( 

1 7 1109 (N9< Jl  I • EQ»  31  CO  TO  («(  (1(970 

N«N*1  01(900 

I7(N(( Jl .EQ. It  GO  TO  709  (1(99( 

(((  CONTINUE  CtOCOC 

(09  (NCfIla»NGIII*OL»«Nl  (19(10 

IPI(NC(tl.CT.9*.((l  0NGItla9*.((  (190(0 

tP<(N6III.LT.-9*.71l  ONGOt  .-9*.  ((  (19(30 

(90  CONTINUE  (19(*( 

ITIN* I TCOol  019090 

9TSTENINT  (91  IS  TNI  IN TNT  POINT  »0«  TNI  OILf*  9-9ILT0  0 SOLUTION  0190(0 

NOJTINI.  ITENN  IS  TNI  IT190TIJN  COJNUN  PON  THIS  NOUTINC.  TNF  (19(79 

00  J9(  LOOP  POPNS  TNI  OILTO  070  O'CTON  FON  TNI  C JON ENT  1TENOTION,  (19(00 
IP  (4«(  (T  THE  («  OP  TNIS  LOOP,  01-00  CONVENIENCE  IS  OOTOINIO.  (19(90 

OTNIN4ISC.  THE  00  J7(  THNOUGH  JO  SOI  LOOPS  SJLVE  PON  THE  HEN  OELTO  V. (19100 
TNI  00  N((  LOOP  IPOOTIS  TNE  (JS  VOL  TOC IS.  (19110 

(91  <0«(  (191(0 

<•(  (19130 

JO  ll(  Iat,N0UB  (191*9 

tM*NNIt»  (19199 

IPIIJ9IINNI.NE.il  CO  TO  390  (191(9 

*■<•1  (19170 

IlaJOOOtlNNMK  (191(0 

IP*II  ♦ CONIC  (IWI-t  (19190 

(Sa(SUNa(.  (19((( 

00  3(9  jalt.tr  (19(10 

TaTOPNfKH.  LIN9(  Jl  I (19(79 

OSaOSaTaOIJI  (19(39 

IPILINOfJI. £1.(1  GO  TO  3(9  (19(*( 

TNET(a(NG(INV«-*NGILIN9f  Jl  I (19(90 

IPITNETO.CT.O.  II  TiITI«0.3  (19((( 

TPfTHETJ.LT. -4  31  TNET0*-(.  J 019770 

99Vfa9SUN«tf<LI*9f  Jll  *1 -Gf  Jl  *SINfTH£TOI  oOf  Jl  •COSfTHETJII  (19(09 

3(9  CONTINUE  (19(90 

lCaV<tNNI*<9SU3-VII9»'l*f99lt  019300 

IPf VfINNI .CO. (•  I 60  IT  (((  (19310 
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Ml 

IN 

Ml 

Ml 

Ml 

61* 

c »» 

Ml 

IM 

MS 

Ml 

Ml 


tp«mmo.co.s)  so  to  too  nun 

)LQ(K)«Q(INHI/V(INNI-QCSI(tl*l  It  MSI 

JEL  TOMBS  (OLQ(KI  I *1*360 

ifi itito.gt.qtoli  <a«i  oiysso 

III  CONTINUE  110361 

tFIKT.EQ.il  60  T)  601  I1ISFI 

IFtlTENN. 6T . ITRN0X7I  GO  TO  IIS  01*3*1 

tS«K-l  11*311 

10  370  I-l.IS  ll«MI 

<1«IUBPP(II  11*611 

KB«IJ6PP(X»1I-1  11*671 

00  361  J-K1.K7  11*631 

IFU6PPUI.EQ.il  CO  TO  366  11*661 

JJ-XP0SICJ9>P(JII  1196*1 

01QUJI«0LQ(  JJI  ♦USPPUI  »0LQ(II  11*661 

36*  CONTINUE  11*671 

371  :0*TtNIIE  119611 

10  37*  1*1, K 11*6*1 

37*  lLl<TI*0LQ<tl*0*PP(tl  11*911 

10  365  1*1, IS  11*911 

TE6PM.  11*570 

<1«IJ6»P(K-II  11*530 

K7*IUBPPtK”I*U»l  01*560 

DO  SOI  J-K1.K7  01*650 

IFUBPPUI.EO.il  60  TO  360  01*560 

JJ*IP0SIU6»PUII  01*570 

TENPaTENP»USPPUI*OLQ(JJI  01*500 

3*0  CONTINUE  01*5*0 

XO(K>II*OLQ(K-tl«TENP  *1*600 

30*  30NTTNUE  01*610 

IB  3*0  I*1,NBUS  01*670 

IFUOBttl.NE.il  30  TO  3*0  *1*630 

0*0  *1*661 

00  SO*  J*1«NBUS  01*651 

IFIIOBINBUII.IE.il  61  TO  310  *1*660 

"*N*1  01*670 

IPtNaUI.EO.X!  60  TO-  3*1  *1*6*0 

3*6  CONTINUE  *1*6*0 

SB*  CONTINUE  01*70* 

ltll*lttl  *010  (Nl  *1*710 

IPtltll.LT.-lM.I  V(XI*-100.  *1*770 

IFtOCII.CT.  111.  I 0(1 1 ■111,  *1*730 

3*0  CONTINUE  01*760 

ITENRaXTENN*!  11*75* 

C OFTEN  TOE  OELTO-I  SOLUTION,  SU6N0UTINE  UNIT  IS  COL  LEO  TO  OFTEN*  01*760 

C NXNI  t F ONT  PI  (TOPE  71  BUSSES  -HIE  EXSSCOEO  THEM  3 LINITS.  01*770 

:*IL  LINITtll  *1*700 

30  TO  711  01*7*0 

60*  IFtKO.EQ.OI  650,7*1  *1*0*1 

6*1  tFtKP.EQ.il  650,711  *1*010 

C CONIEN6INCE  NOS  BEEN  OBTIINCO.  TIE  FOLLONIN3  SECTION  COLCULITES  01*070 

e THE  SLICK  BUS  PONEN,  0N0  UNITES  TNI  NESULTS  ON  TIE  OUTPUT  FILE.  01*031 

69*  KNIT! (7,10011  ITEN.ITENN  *1*061 

30  657  1*1,  NOUS  01**50 

IPdOO  (II  ,NE.  31  60  TO  657  *1*061 

<1*3*001X1*17  *1**71 

KF*Kt*CONEC(II*l  *1**01 
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3S.93*SUH*B$UN>1.  119698 

DO  991  J*KI,KP  119911 

TpT6PNII*LIN91JI>  619911 

6Sa6S*T*6(J>  619926 

9S«9S*T*9«J>  619936 

IPtLIN9IJ>.E').0l  60  T3  Ml  619996 

THCT6*AN6<I>-IN6<'„tN9(J>>  619991 

SUH*SUH*V«  LINK  J>  >•«-;<  JI*;0SCTHET4> -91  J>*SIN«TNET»>>  819961 

9SUN*9SUH»UHH»(.mM-3l  J>  *5191  THEM*  .91  J»  *C0SITHET6>)  119921 

691  CONTINUE  619960 

•«>**«I>*ISUH»|MI>*SSI  619991 

laMTIIlMISW'dtl’lSI  921666 

•»Nt*PII>*PID*QCI>*9(I>  626111 

IPISHl.LT.l.)  60  TO  911  621121 

(PIS91.6T.16E9I  SO  TO  916  626131 

SN*S9NT(SN1)  626666 

4NITI 12.1666)  !,»«!» ,0111 ,14  626691 

•0  TO  693  626661 

69t  509TT9UE  020021 

693  tPIOJT.EO.9. ON.OjT.EO.il)  SO  TO  696  626666 

e CUSlLI't  LINE  PIOUS***  626191 

9NITT  12.166  2)  626  166 

NN*9  626116 

39  699  1*1, NL  626126 

IPILTNllII.EO.l.SN.LlNPID.EO.l)  60  TO  69  6 626  1 36 

IPUIN6(I>.6T.kI19(t>>  eo  T3  699  626161 

NN*N9»t  626191 

MC9*LX<Sai.Nail  926166 

I6*«(LIN6<I>>*e0t<t96ILtN6(I>>>  626126 

tO*TILIN6  ft ))*SlNI6N6fLlN6( I) ))  626161 

PtaCNPLMfl.EO)  926196 

16*611 INN  III > *COt (INSIlINNIt I ))  626266 

I9*6ILIN9<m*SINI6N6lLlN9lt>>>  629216 

69*SN»(XCC6.EN>  926221 

30  696  N"  1.  NO  T9  629236 

IPILI NO ID.NE.LT 26 IN)  I SO  T3  692  626261 

IP(LIN9II).NS*LT99IN) I 60  T3  696  626296 

T*T6PIN>  926261 

IPIT.E0.9I  T*1  626226 

(PIT.  E 0.6.1  T*1  626266 

t*T*V6*C0NJ6(  IT*T6«901*T2T>  926296 

N*«9*eONJ9l l*0-T*V4> *T/T>  626366 

SO  T3  696  926316 

692  IPtltNlUt.NE.LTNNIItt  60  TO  696  926  326 

IPILtN0lll.NE.LTN6  INI)  60  T3  696  626336 

TaTOPINI  921366 

IPIT.  10. 01  T*1  626396 

SPIT.  E 0.6.1  T-t  626361 

••«6*eONj6l<V6-T*V9>*T/T>  626326 

N*T*T0*C0NJ6< <T*«9*«I)  *T/T>  626  361 

30  TO  699  926396 

696  30NTTNUE  626666 

9 P6LLINS  OUT  THE  60TT09  OP  THIS  LOOP  WINS  THIT  THE  9N6NSN  0EPIHI3  626616 

0 OT  UU<1>*L1N0I1>  IS  NOT  6 TNINNP3INEN.  »N0  6 TIP  CILCULITION  IS  626626 

0 NOT  NI3IS9MT.  C613ULITS  THE  LINE  *ONIN  PL04S  BELONI  626  6 36 

S*«6*eONJ6U96-«9>*T>  626666 

Np99*CONJO( l*O*0tl*T)  626696 
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690  40171(7,1003)  i.lN«(tl,lIN8<I),S,.IN9(X),LIN6(I>,R  070660 

ft*  ms  sontinue  unri 

Ml  10  1*3  I*t,NBUS  KIMI 

Ml  »NG(I>  *S7.?957»MNG(I>  070690 

e nrite  sjnmoriieo  output  o*t»  o<<  out»ut  filei  umm 

NRIT'(7,1009)  070510 

• n (RITE!?, 1000)  II9US(t),I08(I>  ,RUSN«4E<I),4(I),6NG(I),P(t),Mt>,  070570 

lt*l,NBUS>  070530 

(FI0UT.Ea.10)  SO  TO  *70  0705*0 

t7(Ll6.E9.0.OR.OJT.E9.9>  S)  TO  411  070550 

4RITT (7.1007)  IL»H»  { I)  ,LPH8(  I)  ,*-UNSCI>  iI'l.UVI  070560 

5(5  661  IFMOTB.EO.O.M.3UT.EQ.9)  10  TO  {70  070570 

OBIT-  (7(1006)  CLTRMI),LTRB(I),T1P(I)  , TMN(X)  ,TN3 (I)  , 1*1,  NOTR)  070500 

SO  T)  570  070550 

900  4RITE(7,1000>  ITER.ITERR  070600 

.OOOPa-l  070610 

936  30  501  1*1, NOUS  070670 

SOI  »N3(T)*57.?9570*»NG(I)  070630 

C THIS  SECTION  TO  507  15  T ISLE  OHM®  ROUTINE  NHEN  PROBLEM  DOES  NOT  070660 

C CORNERS:  NIT  MI N SPESIFIEO  ITER6TIORS.  070650 

)0  907  10*1, NOUS  070660 

539  IP4I09  (IB).NE.l)  CO  TO  505  070670 

91*91*0  070600 

30  507  J4*l ,NBU$  070690 

X74IOB  (99  (J6)),N£.l)  63  T3  503  070700 

91*91*1  070710 

960  91*91*1  070770 

iriNMJ6l.EQ.I6)  60  TO  519  070730 

903  SONTINUE  070740 

SO  T3  900  070750 

909  17(139(101. EQ.J)  60  TO  510  070760 

969  47*0  070770 

30  506  JJJ*1, NOUS  070700 

I7(IOB(NO(JJJI>.EQ.l)  60  T3  506  070790 

93*N7*1  070000 

t7(N9(JJJ».Ca.IBI  GO  TO  510  070010 

990  906  J09TTNUE  070070 

SO  T3  900  070030 

910  30*3**0  070060 

60  T3  970  070050 

910  3P*0LP(N7)  070060 

999  30*0  070070 

SO  T3  970  070000 

919  3P*9'.P(N1»  070990 

00*OL9(91)  070900 

SO  T3  970  070910 

960  970  4RIT-  (7,1010)  XRJSIIO), ¥11*) ,»NGCI§> , 07,03  070970 

907  SONTINUE  070930 

RETURN  070960 

970  SONTINUE  070990 

e ton  7LSN  OUTS  CM1NSE  ROUTINE.  TNE  NUNOCR  37  CH6N6E0  10  RE60(NCI  070960 

969  0 THEN  NtM  BUS  06T6  IS  RE60.  BUS  LIST  U*06TE0  Of  LOO*  600.  L060  070970 

e 7L04  93JTINE  IS  666IN  ENTERED  OT  710  1NO  EKESUTEO  USING  MEN  06T6,  079990 

e NLS  IS  NUMBER  07  S49NSE.  NC  IS  NDNIE9  07  RUSES  SOSH  CN6N6C.  370990 

0 ICS  If  MOUSE  COUNTER.  OJS  CMOS  USE  I0NE  70RN6T  6S  IN  BUSIN  NT.  071000 

IP(NLS.tl.OI  03  TO  999  071010 

970  30  900  I*l.NOU9  07  1 070 
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c 


Ml 


1 1« 


»« 


Ml 


Ml 


Ml 


619 

c 

619 


INS<T>a.(i29S329>ANG<tl 
9(9  009TINUE 
nc:»«*ccm 
uimi.m?)  »,*: 

:«m«uscmg 

I2M.HE.CI  GO  TO  90S 
4RITE  < 2,1021 > NCS.NC 
NRITE <2,1022* 

49121(2, 1(09) 

10  992  IC»1 »NC 

REltHS.tOU'  lOBT.IO'JSN.BJSN.yiN.AGI.RAN.JAN.aHNN.OHAXN 

triIORN.GT.I*  SO  TO  902 

ONINN>QHXNN/BKyl 

OHA*N«0*1AXN/8IWA 

RNaRAN/SRVA 

]»>»*/nyi 

4RIT* ( 2,1 02G)  13USN.I0SN,9JSN,VIN.1GN,PN,3N 
INCH*. 012 AS 329* ASH 
iriVIN.EO.OI  «M>l.g 
4N«*»N 

30  911  jC*l»NRlJS 

IF<I9<JS<JCI  .HE.  I8USNI  GO  TO  SOI 

»<JC*a*»N 

OIJOaQN 

asra  <jc  >*ohinn 

OHAX  CJC**OHAXN 
9NSI  JC>  ■9MGH 

iijeiaio 

OOSNAHEIJCMRUSH 
tOOl JCI bIOBN 
900  309TINUC 
992  OONTtNUE 
>ii:»olc-i 
so  TO  210 

9(9  4RXTE (2,1(111  18 
SO  TO  980 

988  HRITC<2,1(16*  IRH 
SO  TO  990 

992  49m  <2, 19291  I9USN.9USN 
SO  TO  990 

999  HR1T?<2,1923>  C 
SO  TO  989 

999  UNITE <2.10111  LXNAII* 

SO  TO  990 
919  UNITE  <2,1(19* 

999  X(RR*XCRR*1 
999  8CTU4N 
INI 


021030 

0210VI 

021090 

821060 

021020 

(21080 

021090 

021100 

021110 

021120 

021130 

021190 

921190 

021160 

021120 

021100 

021190 

021200 

021210 

021220 

021230 

021290 

021290 

021280 

021220 

121280 

021290 

921300 

021310 

021320 

021330 

021390 

021390 

021360 

(21320 

021190 

021390 

921900 

921919 

(21920 

021930 

021990 

(21999 

(21990 

921920 

921900 

9(1990 

(21909 


SUBROUTINE  AOROLIXJ.XC, Jl 

G TMTf  SIIMOUTINE  ODDS  09  DELETES  ENTRIES  2909  THE  DO  (NO  JCOL 
G T98.ES.  OTHE8  TABLE  ENTRIES  ATE  N04E0  TO  ALLOM  999  THE  AOOCO 
C OR  OELETEO  ENTRIES.  THE  SOUNTER  200  ME  NUHSER  09  ENTRIES  XS 
C ALSO  (OJUSTEO  AP»Ra»RtATEL». 

OOHNOH/COHC/  HA  <2901  .991290*  .ISO. 1 10(91,  OJ  <19091  ,109(290* 
30N90H/C0HST/  N9JS.NL.ISS.I *4,LL 1,LL2,LLS,LL9,N3T9.I2. HOLTC 
t.ITRl . IT92.9T0L.9T0L ,NLC 
OOHNDN/SU9/  8H 
XPIX0.E9.il  GO  TO  20 
LS-ISS-l 
>0  to  taXJ.LS 
JCJlin-JCOLlIM* 

0*1(11  •OUIXRI* 

19  SORT I HUE 
MOL  I XSSI  ■( 

MMXSS)«(. 

ISS»XSS-1 

RETURN 

>9  .S*IIS-IJ-2 
ON*  90(21 

m*j:ol(ji 

MOL(tSS*l>  aJCOLIISSI 
MMISSniaOUdSS* 
jeOL(XSSI*JCOL<XSS*lt 
9*HtSSI«t*MISS>ll 
SO  SO  Eal  «LS 

JCOL  <ISS~I>  aJCOL  ( ISI”I”1» 

OU(tSS«I*aOU(tSS«t>ll 
19  OONTXNOC 

MH(t  JatlaJC 

MdJMla-WIMR 

XSSatSSot 

RETURN 

XNO 


(21910 

021920 

021930 

021890 

021990 

021960 

9(1920 

9(1999 

9(1990 

9219(9 

9(1819 

921620 

9(1630 

9(1690 

(21680 

9(1660 

(21920 

(21800 

9(1690 

9(1200 

(21219 

9(12(0 

9(1230 

9(1290 

9(1299 

9(1260 

9(1220 

9(1200 

0(1290 

9(19(9 

921(10 

9(18(0 

9210)0 

0(1990 

9(1990 


21S 


t 


II 


1» 


n 


i* 


n 


w 


M 


SUBROUTINE  LINI  T (I9K ) >21110 

integer  cohec  >2iir> 

OX4E4SXON  S*(250)  621880 

*04404  /1040/C04,CMG,L300P,S13P, t4»,0UT,*,T,6<V6,RH01,N46X,46KTR,  021630 
140«lTC,4»XPH,IST5,9<V0t  >21466 

104434  /C 04 6/LI 4 1 (16501  ,1143) 155 6) , S ( 1950 >, 9(1650 > ,*(259)  ,0(256)  , 021910 
1LP45(50),PH64G(50),.YR4(250),LTR9(250),TO*(250),T44(250),V(250),  021920 

2T4«(250),IUBPP(250>,  6NG(?50)  ,T4!IS  (230  ) ,09*  (250)  , U9*(5>00>  , 021936 

33034642(250) ,L*H0 (50),LIST(256),XU3*( 250 ), 94 14(250), Q4 AX (256),  021990 

939**( 250), U9**( 36  00) ,J9*( 300  0) , J3**(  3)60) , ICC( 250) ,OL*(256>,  021950 

52)1 (1 950) , 20R(1950>, 43T* (2)0 ), '0423(250), 110(250 >,I*46S£ (250)  021960 

304404/C04C / NO ( 290) ,49 (250) , JC3l (10)0) , 3J( 1006) , 199(250)  02192) 

104404  /C04ST/  43US, 4L , ISS,I»/»L. 1,.L 2,1 L3.L16, 40TR.I2 ,NOLTC  021960 

1,1141 , IT42, *TOL,3TO.,4Ll  021990 

111)  »0R44T(T16,“****  91)5  40.  “,IS,“  SXCEEOEO  XTS  46XIHU4  9 II4ITI”/  022000 
1T21,~0  SPECI*I£0»",*8.»,“  PER-UNIT. ”/T21, ”3  COLCULOTEOI”,  022610 

2*1.9,”  PER-UNIT.”/T2t,”040J4T  EX1EE3EOI”,*). 2,”  PERCENT.”/)  022020 

1001  *0R46T(T16,”****  90S  41.  “,IJ,”  EXCEEOEO  ITS  4I4I4U4  0 UNIT!"/  022030 
1T21  ,"0  SPEC1*IE0«”,*8.'.,”  PER-U4IT. ”/T21  ,*9  C0LCUL0TE9I”,  022690 

2*0.5,”  PER-UNIT.”/T71,“040J4T  *X1EE3E0I",*5. 21  “ PERCENT.”/)  I 022050 

C THIS  SUBROUTINE  0ETER4IHES  If  644  *4  TYPE  BUSES  464E  EXCEEOEO  022066 

C TMEI4  9 LI4ITS.  THE  US  LIST  IS  SC6NNED  *09  6LL  TYPE  2 BUSSES,  022020 

C >43  THE  0 C6LCUL1TE3  *3*  E6C4.  THE  C6LCUL6TEO  0 IS  C04P64E0  TO  022060 

C THE  S»E1I*IE0  O.  I*  the  solo.  3 EX1EE3S  THE  LIBIT,  > CHECK  IS  022690 

C TMS4  469*  T3  SEE  I*  64T  T1UL  BUNCHES  ORE  C344ECTE3  TO  THE  BUS.  022100 

C I*  (IS,  THE  UP  IS  OOUSTSO  (4IT4I4  TOP  LI4ITS)  TO  TRY  TO  HOLO  022110 

C THE  S»£1I*XE0  BUS  V3LT0GE.  I*  40  TIUL'S  ORE  0V6IL09LE,  OR  THE  022120 

C TOP  LI4ITS  HOVE  BEE4  REOCHEO,  THE  6 JS  VOLTOSE  IS  THEH  60JUSTE0.  022130 

30  100  1*1, NOUS  622190 

tPIX49(I).4E.2)  SO  TO  100  022150 

IX* J9DOII )HIZ  022160 

I7*Xt»C04EC(X>-l  022170 

9S*9SU4*0.  022100 

DO  10  JpXX.I*  02219) 

T *TOPR(X ,LX4B( J) ) 02226) 

•SpDS«T*4(J)  022210 

I*(LXNB(J)»EQ.  0)  G3  T1  10  022220 

THCT0*04G( X) *640(1149 ( J)  ) 02223) 

• SU4*BSU4»V(L!49(J>(  *(-5(  J)  »SX4(THET6)  *B(J)  *COS(THET6))  622290 

II  C04TI4UE  122250 

3(1) *V  (I)  *(68(71*0  (I)  *BS)  022260 

tr(94IX(I>. EQ.),. 040. 9414(1). E9.0.)  60  TO  II)  022270 

(P(946X(X)*Q(I)>  20,1)6,11  022210 

11  Xr(a4!N(l)*Q(I>>  199,100,21  122290 

II  JEIOB  OK(  I)  *Q(I)  122310 

00  21  l*l,L900P  127310 

XPILXST  (L> . E9. 1 > SO  T3  59  022320 

21  CONTINUE  022331 

LOOO**LOOOPPl  022390 

CX*(*OCL/Q40X(X))*1I6,  122390 

4RXTE (2,1)00)  1, 9406(1), 9(1), EK  022H0 

LIST (LOOOP) *X  022371 

SO  T9  5)  122300 

20  )(L«34XN(X)-0(I)  12231) 

00  26  L*1|1)60P  1229)1 

xp(Lxsm).eo.()  so  o io  022910 

26  CONTINUE  12292) 
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LOSO»*ionop»i 
LIST U.003P) »I 
IPIQHINIXt.EQ.O.I  GO  TO  2T 
EX«(9S(10  0.*OEi/3HIN(XM 
SO  TO  70 
*T  EX*10(,*OEL 

78  <«IT- (7,10011  I,SHIN<X>  ,0111  ,FX 
*•  IFUNS(OEL>.LE..(l>  GO  TO  1(1 
tPisxin.NE.o.i  so  ro  90 
<l>J*00m«I7 
<2*<1 ♦ CONEC < I)- l 
<■( 

SO  60  1*1 (NOUS 
IRN*NN  (l> 

trtlSBtXRHI  .NE.ll  GO  TO  6( 

<■<♦1 

DO  *1  J»M,<7 

IF(IRM.E0.LtN9(J>)  GO  TO  (7 
•1  CONTINUE 

1U<XI*(. 

SO  TO  60 
62  )U(<U8UI 

60  SONTINUE 

n>o. 

SO  61  L*X1, K2 
T*T«<>R<I,  LINS  <1)1 

61  IS*BS-T*BU» 

is»x-i 

SO  TO  Nat.xs 
<1*IUBPP(NI 

IFIK2.IT.K1>  GO  T<5  TO 
00  66  J*K1,K2 
IFCJBPPfJI.EQ.O)  SO  TO  66 
JJ*IPOSI  IJBPPCJI  > 

0U< JJ>*OU<JJI«UBPP(J)»OU(NI 
66  CONTINUE 

TO  SONTINUE 
SO  M N*1,K 
SU(N>*08PP<H>*0U(N> 

TS  SONTINUE 
TENP.O. 

SO  00  N*t, X 

60  rEHP«TENP*0U<N>*SU<N)/06PP<N> 

SKIIM1./I8S-TENP) 

60  SV*SX(It*OEL/VCn 
SO  It  L-l.NOTR 
IPILTRftILI. NE.ll  GO  TO  61 
IFIi::CU.6T.69.(NO.ICS(U.LT.60l  GO  TO  67 

61  SONTINUE 

PULING  OUT  THE  80 T TON  OF  THE  LOOP  NEONS  THOT  BUS  I OOES  NOT  NOTE 
ON  .TS  NRONSN  CONNESTEO  NITH  THE  T0»PIN5  ENO  OT  BUS  I.  THEREFORE 
COISU.OTC  00 JUSTED  NOLTOGE  FOR  BUS  I. 

«<tl*V(II«OV 
60  TO  100 
6>  TNEN*TOP(U«OV 

IFITNX  (LI  -TNEN)  w., 96,91 


63  IFITNNILI-TNEHI  96,66,96  073006 

66  T0P1LI  «TNX(L1  073010 

IIIIMIDO*  073020 

SO  TS  ‘ 073030 

66  073060 

f(tl*V(I>  "SR  023060 

SO  TS  100  (73(60 

FUN3TI0N  OISCRET  5(tC.  THE  NE8REST  >NYS1C(L  (9ISSRETE)  TIP  SETTING  KIOTO 
TO  MINT  THIS  ViLUE  IS  STORES  (S  ME  NEN  T»»  SETTING  FOR  THE  IRONS.  0230(0 

66  T6*(„)*0ISCRET(TNEN>  073090 

1(0  SONTINUE  (231(0 

RETJBN  023110 

IRS  073120 


217 


t 


*unjtion  iposum 

JONNON/COHC/  ,NR(2B0) , JC3.  (1800)  ,0 J( 1 DOS)  . 108(280  ) 

JQNNDN/CONST/  N8JS.Nl , ISS,  I»Y,LLt  ,U2  ,113,  ILA,  N0TR.I2,  NOLTC 
l,ITRl,XTR2,PT0L,QT0.,Nt.C 

<■1 

JO  18  1*1 ,NBUS 

XPinstNsitn.eo.si  so  to  is 
«•«« 

triNNIXI.CQ.XT)  SO  TO  11 
It  JONTINUE 
11  IPJS«k 
RETURN 
INS 

FUNCTION  IPOSKIT) 

JONNON/COHC/  NA(280)  ,NB(280>  . JCO.  (1000) , OJ(IOOO)  ,108(280) 

JOHHON /CONST/  NBJS,NL,ISS,IPV,LLl,U.2,U.3,Lt.<>,N0TR,I7,NaiTC 
1,ITR1,ITR2,PT0L,JT0L,Nl: 

<*8 

DO  10  I«1,NBUS 
fP (108 (NO (I)).NC.l)  CO  TO  18 
<•(♦1 

ir(N8(I).EQ.XT)  SO  TO  11 
18  JONTINUE 
11  XPOSI*K 
RETURN 
XNJ 

‘UN5II0N  TAPR(ITA,XT8> 

thx*  «un:tion  oeternines  tr  tn*  rrancn  oepxnxo  ny  xt«  and  xtn  ii 

ft  TRANSrORNER  BRANCH.  IP  SO,  TH*  PROPER  T»»  RATIO  IS  ASSIGNED  TJ 
TftPR  AN J RETURNED  TJ  THE  PROSRIN. 

JONNON  /C0N8/LINA  (1ABQI  ,UNS(1<»51)  ,S(  1WS0)  ,8(1880)  ,P(288>  ,1(288)  , 
1„PN8(50),PNANG(N0)  ,LTRA(2S0I  , HR  3(25  0)  ,TAM2S0>  ,TNN(288)  ,Y(288>, 
2TNX(280), IUBPP(230) ,ANG(2$0) ,X»US (280 > ,DS»( 280) , U8P (1000) , 
)8USNINE(280),LPHA(SO),LIST(?80>,  IU3> ( 250 > , 0HIN(280) ,ONA* (280) , 
0)SPP(750> ,UBPP(30  00) ,J8P(. 1000),  J8PP(  3000), ICC(28  0),0LP(288), 

8X81  (lASt)  ,I8R(lA50),NDIA(2))),rON£C(280>,3LQ(?50>,IPHAS£(738> 
JONNON  /CONST/  N3US, NL, ISS, XPV,Lkl,LL2,LL3, LLA.NOTR, XX.NOLTC 
1,  XTR1 , XTR2,  PTOLOTOL  ,NLC 
T»»R«8. 

IPdTB.EQ.O)  GO  TO  28 
JO  20  I-l.NOTR 
IP(LTRA(I).NE.ITA)  SO  TO  10 
tP(LTR8(X).EQ.IT8)  TAPR.TAMI) 

SO  TO  20 

18  ir(LTRe(X).NE.XTl)  SO  TO  28 

IF(LTRA(X).EQ.IT8>  TAP2«1./TAP(I( 

<8  JONTINUE 

28  IFdAPR.CQ.  8.  ) TAPRM.O 
RCTJRM 
END 

*UNCTION  OISCRET(TT) 

Il»l 

«pTT/, 08828-160, 

)•( 

IP(1NS  (X*J)  ,6E.  • 3)  GO  TO  8 
DISJREW.O*. 00G25* J 
RETURN 

8 tF(J.LT.8>  Il-l 

JpJMI 

0XS3RET*1.8*. 00828*  J 

RET JRN 

INJ 


218 


OVERLAY  (SHRTCKT,  3,0)  U]7H 

•»<UH  fault  oejtab 

C PROGRAM  FAULT  IS  THE  SHORT-CIRCUIT  ANALYSIS  SESNENT  OF  THE  OVERALL  021770 

S SYSTEM  ANALYSIS  PROGRAM.  THIS  PROGRAM  UTILIZES  LARGE  HATRIX  TE5N-  023750 

C NIQ'JES  AND  ZSUS  HATRIX  SYNNETRr  TO  REDUCE  PROSRAN  STORAGE  REQUIRE*  023790 

C HERTS.  ANY  NETWORK  U»  TO  250  SUSSES  CAN  RE  JSEO  AND  THE  PROGRAi  021800 

C NIL'.  501 PLETE  THE  FAULT  STUOY  AY  TAXING  SO-BUS  "SUBSYSTEMS"  OF  THE  023010 

C NET 40RK  AND  REOUCING  THE  RERAISING  SYSTEN  TO  A H£S1  EQUIVALENT.  023020 

C BY  TAKING  CONSECUTIVE  50-BUS  SEGMENTS,  THE  ENTIRE  NETWORK  CAN  BE  023030 

C STU3IE3  IN  FIVE  PASSES.  0218A8 

C THE  PROGRAH  USES  THE  HETHOO  OF  5YRHETRICAL  COMPONENTS,  ANO  THE  023850 

C POSITIVE  ANO  ZERO  SEQJENCE  IHPEOANCE  RATRI5ES  ARE  STOREO  AS  ONE-  023060 

5 DIMENSIONAL  ARRAYS,  l.E.  THE  OIAGONAL  ELEMENTS  OF  EACH  ARE  STOREO  023870 

C IN  IDEA  ANO  ZOOIA,  ANO  THE  UP*SR  TRIANGLES  FOR  EACH  ARE  STOREO  IN  0230*0 

C 2BUS  ANO  20BUS.  023090 

INTEGER  CON,CHG,SCOP,OUT,CONEC,P1,A,C,AA,5C,A1,51,A2, C2,A3,C3,0,01023900 
50NP-EX  22, OFFOIAG, 0IAG,CaLXV,VB,FA5tFAlf IF ,701 A ,2001  A, 2BUS, 70S US, 023910 
12N,E9US,AHPA,E5,22E,ZC,2C0JP,Y5OUP,ZZ0,26,2ZG(25OI,FI,FIG,PN$,ZS,  023920 
*»IA  023930 

OINENSION  IFBC26I  ,.1(511, L2( 51) , CU( 51) ,CUR(51>  0239A0 

COMMON  /50HA/C0N, CIS  »LOOOP, SCO*, INP,  OUT, F, T ,BKVA ,RH01, NMAX.MAKTR,  023990 
1NAKLTC,NAXPH,ISYS,9<VA1  023960 

COMMON  /COMB/LI NO (1650) ,LIN)(1A59I  ,G( 1650) ,8<1A58> ,P(2S8) ,0(250) , 023970 
l.PN8(50),PHANC(59),LTRA(2S0)  ,LTR5C2S0» ,TA» < 250 > , TNNC259) ,V(250) , 023900 

2TNK<?50I, IUBPP(2)Q>,  ANG(250> , IBUSTZf 0 I ,O9»(250 1 , UBPC3000I , 023990 

39USN*ME(250) ,LPHA (30) ,LIST(250) , IU9» (250) , OMIN (250) ,ONAX (250) , 82A000 

605PP(250) ,UBPP(30  00I  ,JS»C 3B00)  , JSP»1 30001  , ICC(250> ,3L» 1250 ) , 02A010 

5201  (1658)  ,20R(1650),9OIA(251)*CONEC(250)»0lQ(Z50)»  I PHASE  (250)  02A020 

COMMON /CO HC/  NA(250) ,NB(2501  , UCO. (1000! , OU( 1000) ,108(250)  02A010 

COMMON  /CONST/  NBU5,NL.ISS,I»V,LLl,LL2,LLS,LL6,NOTR,I2,NOLTC  026060 

t,ITRt,ITR2,PTOL,OT3L,NLC  026050 

COMMON  /SAVE/  I ERR  076060 

COMMON  /7ERO/LA(25),L9(25) , .R(75) ,LS C 25) , 2MI25) , YCOUP TO, 6) , 026070 

12COU9( 25) ,IJK(25) ,<UI(2SMIT7( 75) ,ISAVE(9) ,2DIA( 75) ,2001 A(78) , 026000 

27BJSI2775) ,20BJS(2775> ,ERUS{ 750) ,23(75)  026090 

COMMON  /ZCONST/  MOMU.NBS, IRjw.TN UT, IOUMN  026100 

1000  FORMAT (IX, "NUMBER  0»  LINES  AOOEO  87  ‘FAULT • TRANSFORMER  R9U-  026110 

1TINE  MAS"/1X,"EXCEEOEO  MAXIMUM  LINE  TABLE  STORAGE  CAPACITY!"/  026120 

21 X, "LINE  NO.", 16,"  OF  TRANSFORMER  TABLE."/)  •"  026110 

1001  FORMAT (IX, "NUMBER  OF  LINES  AOOEO  BY  ‘FAULT'  SOURCE  INPEOANCE  ROJ-  026160 

1TINE  HAS"/1X,"EXCEEOEO  MAXIM JM  STORAGE  CA»ACITY  OF  LINE  TABLES!*/  026150 
21X,"5ARO  NO.", 16,"  OF  SOURCE  INPEOANCE  DATA.-/)  026160 

1002  FORMAT (IX, "ERROR  IN  FEASIBLE  BUS  LIST  ROUTINE) “/1X*"N0.  OF  BUSSES  026170 

1IN  SYSTEM.", I6/1X, "FEASIBLE  BUS  .IST"/(16I5) ) 026100 

1003  FORMAT (IX, "NO.  0*  MUTUAL  LINES  3£CLARED«",I6,"1"/1X,  026190 

t*NAXIMUN  ALLOWE3»25l  "/)  02  6200 

1006  »ORNA MIX, "NO.  0»  BUSSES  IN  SYSTEM  AREA.-,  16, "f "/IX,  026210 

l*NAXtMUM  ALLOWEO‘50) "/)  026220 

1005  FORMAT (IX, "ERROR  IN  TRANSFORMER  CONNECTION  CODE)  TXFR  NO.", 16/  026230 

11X,’5EE  INPUT  LINE  LIST.  WRONG  C30E«",I6,".  COOE  IS  C»IAOO."/>  026260 

1006  FORNAT (IX, “ERROR  BETWEEN  TRANSFORMER  ANO  LINE  TABLESI"/1X,  026250 

1*COU.ON‘T  FIND  TRANS.  BRANCM  (S9.",I6,"  ANO  E9.*,I6,")  CONNECIEO  026260 
2T0  BUS",I6,“  IN  LINE  TABLES."/)  026270 

1007  FORMAT (IX, "‘FAULT*  SOURCE  INPEOANCE  ROUTINE  NAS  OETECTEO  A IERO  026200 

1IN»JT  F0R"/1X,"TMREE-PM.  FAULT  CURRENT.  THREE-PH.  FAULT  CURRENT  026290 
29U5T  BE  N0N-2ER0(-/1X, -SOURCE  INPEOANCE  CARO  N0.",I6/>  026300 

1000  'ORNA MIX, "ERROR  tN  LINE  TABLE)  FIRST  ENTRY  IN  LINA  SHOULD  BE  026310 
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ithe  ref  suscaoi.’/ix.-ocTuo.  tob.e  »Tini%un  024320 

1009  FORMOT <2613!  024330 

••  ltlt  FORNOTClM17T23,79CH»)/T2S,lMa,T25, “FAULT  SUMNORY  FOB  BUS", 14, IX  024340 

1, H»/T23,lN»,T27,“7Fa  C",F3.2,»,*,Pf.2,"l  ».u. ", T51 , tH»7T2 J, IK*  024350 

2, T27,“2Ga  C",F5.»,“,“,FS.2,"I  P.  J.*,  T3 1,  H»/T23,  25  C1M») /)  024300 

till  FORMOT  CT4,"TMR£E-PMOSE",T23,“PM4IE-5ROUN'>*,T42,"PMOSE-PHOSE",T&0,  024370 

l"PN-»M-GR0UN0"/T2,16ClNa)  ,3<  , 16C  1H»»  , 3X,  16  C 1M»  > , 2X,  16  C IN*) /T2,  024300 

65  2"I*IHOG!a-,PB.4,T21,-IFCNOS)a«,rs.4,T40"I»CH05)a»,F0.4,T58,  024360 

3*IrCNOr.)a-,Fe.4/T2,"X/Ra",F3.3,T21,"X/Ra-,re.S,T40,"X7Ra-,F0.S,  024400 

4rf 3, *«/«»“, FO.3/72, 16 ,T40, "EFCO! a-,F7.4, T56,  024410 

5"E*CO)a-,F7.4/T40,"EFC9)a",r7.  *,T58,"EFC  3)  a-,*7.4/T40,"SFCC)  •",  024420 

6»7, 4,  T59,"EFCCl»",F7.4/T40,l6CHa!,T5  0,-1*181  a",  F7.47TS9,  024430 

70  7*X/RC8!a“,F8.3/TS6,"IFCCla-,r4,  4FT53, “X/RC3! a-,  FO.  3/T30,  16  CH»! » 024440 

1012  *ORNOTCT4,“8US  M3LT0GES",  122, “PROSE  VOLTO JES-7T2,“8US",T9,  024450 

l"»M06)-,T24,-0“,T23,“9",T14,"3"/fl«,I3,S*,F9.4,BX,F4.2,lX,  024460 

2'4.2,1X,F4.2I)  024470 

1013  FORMOT CT22,"THREE-»M0S£",  741  ,"PM0SE-GROUN3"/T20, 16C1H» ) , 3X , 16 116*1  024400 

75  l/T20,"IFCM4G!a",*8.4,T39,"IFCN05la-,Fe.47T20,“XFRa-,F8.3,T39,  024480 

2-X'Ra-,F6.3/T20,l611H*),3X,15CtHa)l  024500 

10<6  FORMOT C//T22,“3US  M3LT0SES",  T40, -WISE  V0.T»GSS"/T20,"BUS“,T27,  024510 

1"»CN0G>",T42,-0“,T47,“9-,T5»,"3“/  024520 

2C19X,I3,3X,F9.4,SX,F4.2,lX,>4.2,lX,r4.2)l  024530 

OO  1015  rORNOTCI3,2X,6F9»2,4F5,l!  024540 

1016  FORN0TC4I3.3X, 2*10.5)  024550 

1017  FORMOT C1X, "ERROR  IN  F£0SI8lE  9US  LIST  R0UTXNE!"/1X,"LXNE  LIST  90ES024560 

1 NJT  I NCI UO £ OLL  LINES  IN  ST STEM. "/IX, "NO.  OF  LINES  IN  SYSTEMa",  024570 
2I5F1X,"N0.  OF  LINES  IN  LlSTa",rS71X,-rE0SI«L£  LINE  LIST"m4I5) ) 024500 

05  1010  FORMOT C// IX  ,70C  t MM  7 1 X,  1H* , S3X,  H»/t  X , 1M»,  T20.  024590 

1*R£SULTS  OF  SHORT  CIRCUIT  «N»L»SIS",T71, 1-C»/1X,1H*,T25 , 024600 

2*0LL  OOLOES  ORE  »ER-UNIT",T71,H*7»,  1H*,T14,  024610 

S"SYSTEN  H0S",I4,“  BUSES.  F0JLT  330ECSC0P)  IS", IS,"  .",T71,  024620 

4H*/lX,lMa,T10,  "THERE  0RE",14,"  >U3SYST£M  STU1I ES« IS»S) . ",  024630 

50  5T71,lMa/lX, 1M#, SOX, 1 H*/1X , 70 1 IN*  ! //)  024640 

1019  *0»N»T<lX,70«lHM/lX,lH»,6S<,lH*71X,lMa,T2S, “SUBSYSTEM  STUOY  N3.“,  024650 

114,"  ",T71,1HVI«,H»,T19,"NJN9£R  3*  BUSSES  IN  THIS  SYSTEM  ISt",  024660 
2 13,".  " ,T71, 1MV1X , 1N*,66X,  H»/1X,  79  C1HM  /7)  024670 

1020  FORMOT  C1X.7QC1HM/1X, 1H*,61X, 1M*  MX,  IN*,  T22,"0UT0H4TIC  SHORT-3IR3U0246S0 

55  1CT  STUOTI",  T71,  1M»M  X,  1M*  ,TU«  “ENTIRE  N-TM3RM  STUOT  HILL  BE  33NPLE024690 

2TSJ",T71,1N*/1X,1M»,T1»,"IN",I2,*  ROSSES  3r  SORT-CIRCUIT  PR33RON. 024700 
3",  T71,1H*/1X,  IN*, 60X  , IN*  / lx,  70  CUM//!  024710 

1021  FORNOTCT31,"PHOSE-GROUN3“/T29,liClNM  /T29,"IF<N0GI «",F7. 4/T29,  024720 

l"X/Ra-,F0.3/T29,16ClH*)!  024730 

100  1022  FORMOT C//T27,"9US",T33,"PM0SE  N3.TOi£S"7T35,"0",T40,"B",T45,":"F  024740 

1(2SX,I3,3X,F4.2,1X,F4.2,1X,F4,2>>  024750 

1030  F0RM1T(T15,X3,1X,I3,1X,F8.4,SX,FS.4>  024760 

1031  FORMOT C//T4, "LIN;  3 JRREMTS", T22, "LINS  CURRENTS"!  024770 

1032  FORHOT IT2 ."LINE", 5X, "FOUL TCI)", T22,"F OULT <11  »M-0")  024700 

105  1 033  FORMOT  ClK,I3,lX,I3,lV,F6.4,3X,r9.4!  024750 

1036  FORMOTI/IX,  70ClM*)/lX,tMa,3JX,lM*/lX,  IN*,  T 2 5, "SHORT  CIRCUIT  INPUT  024010 

130TO", T71,lHa/lX,lHa,61X,lM*/lX,70ClHa)//l  024010 

1037  FORMOT CtX,"SOURCE  IHPEO0N3E  3 US  N0.",I3,5X,"V3LTS  L-NCXY! ",2»9. 27  024020 
tiX,-S-PM  FOULT  CURRENT  COMPS!  ",2F.9,2/1  X,"PM-GNO  FOULT  CURRENTCOMPS  024030 

110  21", 2FB,2/1X, "FOULT  2 COHNS! ", 2*5. 1 ,"C  NEJT  2C0MMS)“,2F5. 1//)  024040 

1030  FORMOT C1X,“20R  ONO  201  3F  LINE", 14,"  TO", 14,"  SHOULDN'T  BE  2£R3."I 924050 

1035  FORMOT C1X.-Z016  3F  3US“,I4,“  SM3UL3  NOT  9E  2ER0. "I  024060 

1040  FORNO-T  C//T3l»"LINE  3URRENTS“/T2S,"LINE",TSO,"FOULTCII"1  024070 

1041  FORNOT  CT27, 13,1X, I3,4X,F7,4)  024000 
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111  10*2  FORHAT (IX, “MUTUAL  COUPLING  3ATA“(1X,“IA.“,I3,*10«",  02*  090 

1XS,"LR«“,I3,“LS»“,I3/1X,“HUTD*1  IHF-DANCE  (OMNS)-“,2F10.9/>  02*900 

10*3  FORMAT  (/IX,  “FAULT  IN*£1AN5E(7FM3MMS>  »“,2(F0.3,1X)/1X  KM1I 

YOLTAGMRV)  «“,»*. 2)  071.970 

10*9  FORMAT(R6,I3,7F».*,I3,F».*|  07*930 

1*0  10*9  FORMAT (IX ,“»US“,I3>  02*9*0 

10*0  FORMAT (/T22, “LINE  CURRENTS*, T*1, “LINE  CURRENTS“/T20,“LINC“,  02*990 

23X,“*AULT(I>“,T*2,"F*ULT(t(  »*-»*)  02*9*0 

10*7  *009«T 1*0,213)  02*970 

10*0  *ORNAT(T3, “PROGRAM  5 ONT *01  5AR0  NOT  IN  PROPER  FORMAT  09  LOCATION.  02*900 

129  1 50*0  NIT*  KEYN090  ”,90,”  13  **1.1190. -/>  02*990 

10*9  FORMAT  (T3, “BUS  0 CON  NOT  BE  IN  SJRSYSTCM  .1ST. IOCS  NOS  NUN9E9  029000 

1EQU*.  NU* OCR  OF  9USES  LISTE3  ON  SUBSYSTEM  C090T")  029010 

1090  *0*90  T (“PM  Ft  COSE  USE  LUO*...1*)  029020 

1091  FO9N0TII2, 13,010, 2FI.0,*F10.1)  029030 

130  1 092  FO9N0T (90,13)  0290*0 

9100(9,10*7)  0,1SVS,SC0F  029090 

tFOUT .EO.l  1.09. OUT. CQ.  1*)  N9ITE(2,1090>  029000 

I-IRSMTCKT  029070 

IF(*. CO.C)  GO  TO  9 029000 

119  3a|9lDFlON  029090 

tFIO.NE.O)  GO  TO  912  029100 

30  2 1*1, NS US  029110 

9E10(9,109l)  100 ( 1) , IBUS(l) , OUSNINE (1 > ,V (I) ,0NG(1> ,F(t >,Q( 1),  029170 

13MIN(I),QNAX(I>  029130 

1*0  2 30NTINUE  0291*0 

*113(9,10*7)  «,ISTS,SCOF  029190 

01«»RBUSCHG  0291*0 

* IF(O.EO.C)  GO  TO  9 029170 

IF(A.NE.Ol)  CO  TO  912  029100 

1*9  *£*3(9,1091)  (139(1) • ISUS(I) .MJSNAMI ( I) , N( I) ,*NC( I) ,F(I) ,0(1) , 029190 

t]NtN(l),OH*X(I)  ,t*t,I$TS)  029200 

*C(3(9,10*7)  A, ISTS, SCO*  029210 

30  TO  * 029220 

C THE  FOLLONIMG  SECTION  FR05CSSES  TRANSF3RNC*  3«TA  TO  ADO  LINES  029230 

19*  e refiremie  if  required  in  tne  te*o  sequence.  02*2*0 

9 IF(0'JT.CQ. 2. OR.OJT.EO.lt)  S3  TO  I 029290 

ORE T! (1,1 036)  0292*0 

* MAXLtN«l*9t  02*270 

(2*00*0  02*200 

10*  30  7 1*1, NOUS  029290 

1A(t)>CONCC(I)  02*300 

3LF(Il*OLO(I)a«.  029310 

7 30NTINUC  02*320 

tF(NOTR.CO.t>  GO  TO  91  029330 

1*0  30  90  I»i ,NOTR  0293*0 

IFIi:;tI>.LT,*l>  GO  TO  009  02*390 

tFlt:e(I).LT.tl)  CD  TO  9 02*3*0 

tFttSC (1) .LT.71)  GO  TO  10  02*370 

tFUCC (I)  ,LT. 91)  GO  TO  19  02*300 

1*9  IF (155 (I) ,GT, 100)  SO  T3  901  029390 

C FAi:  THROUGH ( TRANSFORMER  IS  »HASE  SHI r TER  TTFEI  029*00 

tF(I5C  (I)  .CO.  91.3R.  ICC(  t>  . EO.  9*.  3R.  ICC  (I ) .6T.96)  90,20  02**10 

C TRA9SF3RHCR  IS  TYPE  FIXED!  029*20 

* tF(I5t(t>.LT.**.3R.tCC(I).E1.**.3R.ICC(I).CT.*0)  GO  TO  3*  029*30 

170  IF(t‘S(I).CQ.**>  63  TO  30  029**0 

tP<!55U).CQ.*9.3R.tCC(II.Ca.*t>  GO  TO  29  029*90 
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IN 


190 


tN 


tit 


115 


IN 
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*0  T1  909  IMUI 

TNONSPO^HEN  IS  TY*E  ItITOI  019*70 

it  iP<ireiz>.LT.6i.».i?c(n.n.M.}«.rccfri.ea.tfi  go  to  *o  019*00 

IP<ieCm.CQ.t].3*.ICC<n.E9.65.3N.tCC<I>.EQ.66>  60  TO  It  115*90 

IPIKSIll.CQ.Otl  63  TO  IS  tlSftl 

SO  TO  9ts  ItSftt 

TNNtSP3*NCft  IS  TTPE  T:illt  IlSSIt 

15  tP<i:S(I>.LT.7*.3*.tCC(II.E0.T5.3«.ICC(l>.6T.71»  60  TO  5t  015531 

tPiteciii.co.m  63  to  it  tissst 

IP<i:CIII.C0.75.3R.ICC(II.E3.T5l  60  TO  If  015550 

(P(t35(II .£0.7*1  63  TO  30  019560 

SO  T3  90S  015571 

000  LINT  POOH  P TO  «P1  «00  Lit?  PN3N  3 TO  NEPI  015900 

It  <taJ600UT««II>»»II  015990 

X2tXl»NA(lTft*<I>>«l  019600 

00  It  JaKl.lI  015611 

XPILINOIJI.EQ.LTKNUM  60  T3  It  015610 

It  CONTINUE  019630 

SO  T3  906  0196*0 

II  NL»NL*Z  019690 

IP(N!..6T.H«XLXN>  63  TO  900  119660 

lINMNU-t  119670 

LINO(NL>aLT«*(I>  019601 

LIN*(NL>tl«LTIW(II  019690 

LlNSINLMIat  019700 

E99fNL»a.t«2tft(JI  019710 

79t«9lla.0aZtI(Jt«.l  019710 

tlllNl-UaZMOil  019730 

Ett<NlM>a7tI(NL>  0197*0 

:one:  ilinoi  j>  lacoNi:  aim  c j>  > *i  019751 

IZOOOa 12*00*1  015760 

*■•*•♦*  019770 

IPINl.CT.NO  XL  INI  60  TO  901  019700 

LIWINUat  0197*0 

lINSINOalTMtll  019000 

kXN«fNL*ttaLTM(tl  019010 

IIN9(NL-I>at  019010 

IMINllar.aZOMJI  019030 

EOt  (NL)al.*  ZOIC  Jl  0190*0 

miNL-tlaZOXINLI  015050 

ItKNl'ltaZOKNL)  019060 

309£:«IIN0<  J)  laC3NEC  (LINNOI  »♦!  015070 

11003a  III 00*1  015000 

SO  T3  90  119090 

*09  LINE  PNON  Q TO  «'l  Q-Ei  019900 

19  <l*JI00(LT*«III>»i;  019910 

<I*XI»NOILTMII>t-l  019910 

90  10  JaXl«<I  015930 

IPILZNOCJI.EQ.  ITMIXM  SO  T3  17  0159*0 

16  CONTINUE  019991 

SO  T3  906  119960 

17  NLaNL*7  019970 

IP(NL.6T.N*XLIN>  63  TO  900  019960 

LINOINLIat  119990 

LINOINLIaLTNO  111  OIOOOO 

LXNA(NL*l)aLTN9(X)  916010 

k!N9<NL*l»aO  0C60I0 
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I 


CM 

tso 

CM 

tw 

»*• 

tn 

tu 

tu 

tn 

*n 

>M 

CM 


tt«(NLi«tmu> 
tOI (Nl  l»ZOI  (J) 

ZOOtNl-llaZORINlI 

miNL-tlaZOIlNU 

SOOESUINOI  J))»C3M£:  (LINOtJMol 

mo9o»«oo«t 

SO  T3  00 

•00  LIN?  FNON  P TO  OC'I 

50  <laJtOOILT««d>)»XZ 
<tMl*N»UTIU(I>>-l 

OO  31  JaKt.'Z 

IF(lINR(J».EQ.lTR3(IM  60  n 3? 

51  CONTINUE 
SO  TO  010 

St  NL*NL*3 

XFtNL.CT.HtXLINI  60  TO  000 
LINO (Nil •• 

LINO(NU«LTR«  (II 
LXN«(Nl-l>»LTMd) 

.lOR(NLMI*0 

Z0*(NUat|*(J) 

ZSKNLIaZOKJI 

ZOtCNL-llaZORINLI 

tOI(NL-t>aZtl(NL> 

cootciixMijiiaeoNx:  aiN*<j>m 

XZ«03aIZ«09*t 

SO  TO  00 

SO  XFdCCdl.lT.Oll  30,10 
so  <iajtooaT««umxz 

<ta<a«NA(LTM(IM-t 
00  30  JaKl.Nt 

tFUlNR(J).E9.LMB<I»  S)  TO  3Z 
SO  CONTINUE 
SO  TO  000 
St  ZOIC Jl  al.ElO 
Z0t(JI-0. 

<la  JtDOtlTRBdl I »XZ 
Rt-Kl*N«<LTRB<IM-t 
00  30  JaKt.Nt 

IF<lINB<J>.EQ.lT**dM  SO  TO  30 
SO  CONTINUE 
SO  TO  000 
SO  ZOOOIai.ElO 
(OtOlaO. 

SO  TO  OS 

00  tt(i:s(Xi.EO.oo.oit.icc(x>.xo.oo.o«.(iec(ii. 
1. AO).  ICCdl. IT. Oil. 3*. ICCdl.EO.il. 9*. XCCd 
t.  oo.  xccm.Eo.zz.  ox,  xccixi.xo.ro.  oo.  xcc  ixi. 
srr. too.iccm.ir.oin  01.00 

LTOtatt.lTOOaEN 

01  LOUS*LTItk  (X I 

Xt(LT00(XI.6T.LT0»(III  LOUSalTOOlII 
LlOUfalTOOdl 

IPIirOOdl.6T.LTOt (XI I LlOJfalTOMXI 
ElaJtOOILOUSIdZ 
<taRl»N«ILOUSI>l 
00  Ot  JaKl.'t 


otoooo 

OtOOM 

otoooo 

•MOOS 

mon 

•MOOS 
MONO 
•to ISO 
•tout 
•toito 
otoist 
•totoo 

•to ISO 

otoioo 
•tom 
•totoo 
otoioo 
•totoo 
•totlt 
•to  no 

•ZOZ30 
•totoo 
•tozoo 
•totoo 
•tozro 
•totoo 
•totoo 
•to  300 

010310 

•tost! 

•to  3 30 

•tosoo 
•to  330 
•to  no 

OtOSM 

otoioo 
•tosoo 
otoooo 
•too to 
•MOtO 
•tooio 
otoooo 
otoooo 
otoooo 
•toon 

or. or  otoooo 

) . Ea.  oo.  ot.  xcedi . f c.  r i otoooo 
CQ.M.o*.  dccm.sr.  otoooo 
•tooio 
•toot* 
•rosso 
otoooo 
otoooo 
otoooo 
otooro 
otoooo 
otoooo 
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c 


(M 


IN 


9** 


111 

^ 91* 


99* 


99* 


99* 


99* 


9M 


imlin*(j).eq.llbjs>  ss  to  *9 
*9  CONTINUE 
SO  T9  900 
99  lll(il>l.tll 
tlKIKI. 

•0  lONTINUE 

e TNt  FDLLONIHC  SECTION  MOUJSCI  GENERRTOR  *JSSES  TO  900  SOURCE 
C INPEORNCES.  THIS  INCLUDES  THE  SCRC<  9JS.  TSE  SOURCE  INPEORNCES 
C RRE  CRLSULRTEO  FR3S  TSE  THREE-»SRSE  RN3  SINSLE-PHRSE  TO  0 ROUND 
C FRUITS  FOR  ERCN  BUS,  NNICH  RRE  RE»D  IN  ST  TM!  F0LL9NINS  ROUTINE. 
C THIS  ROUTINE  NRY  BE  STRRSSEO  IF  TH£  SOJRCE  INPEORNCES  tU  TO  SE 
C IONDRED,  RNO  THERE  IS  IT  LERST  ONE  LINE  TO  REFERENCE  IN  THE  CINE 
C TR*LE.  THE  ROUTINE  IS  9TRRSSE9  IF  IRE'«I, 

•1  RER)(9,1*S7)  RR.IRS* 

:c*rrcursor 

IFIRR.NE.CC)  00  TO  919 
IFIIREF.EQ.tl  CO  T9  9* 

90  IB  IM.IREF 

RER0(9,l*lf>  liF.Vt.FRS.FRl.ZF.i; 

IFOUT.EQ.Z.OR.  0 JT , IQ. Ill  S9  TO  19 
FRIT' (1,1117)  IBr,FS,FR3, Fit ,ZF, IQ 
•9  FRidOSIFS) 

I*.SB**.»*P»»P/9R*R 

tl>CR*S(FR3> 

IFdl.EQ. I.  ) CO  TO  9*7 
IFtrt.EO.I)  CO  T9  917 
tZM9M***./FRS»EF 
tl«CR*S(FRl) 

IFIEt.ES.*.  > 09  TO  S* 

7**«l****.*¥*/FRt-*.»ZZ-9.»Z»)/Z9 

zzbzzfzs 

00  TO  SO 

**  IZtB^NFlF (l.ElB.t.) 

zz>zr/z* 

**  HUM) 

IFtNl.GT.NRXLIN)  09  TO  9*1 
LtNI(NL)>* 

C1N9INCMISF 

linr(nc-ii>isf 

IIN9(NI-1)M 

cmtaRERca./zzi 

9 ( NCI  ■ RIHRO  < l.SZt  > 

0<NL*1)b6(NII 

9<NCM)**(NC> 

ZIRINCIbRERC IZZ*) 

ZtlfNLlBRINRCIZZII 

Z*R<NL>1IbZ«R(NL) 

Z*I(NC-1>bZ*I(NC» 

ZZCII*F)>Z0/2B 
IZR09bHR00*1 
cose: II*F)bC0NEC(I9F)»1 
•9  SOSTTNUE 

tF< IERR.NE. I)  RETURN 

C *0010  LINES  RRE  NON  COS*CETEI  RESORT  LINE  TRICES  INTO  RSCENOINC 
C OUS  ORDER t 

0*  SILL  LSORTIZ.LXNR.LIN*. NL,9, ••*, Z*R,Z*I, 0) 

IZ*IZ»IZROO 


•ZOO** 
*79011 
•ZOOM 
•9009* 
•Z009* 
IZ009* 
•ZOOOI 
IZ007* 
•ZOOM 
tZOOSB 
076700 
(7071* 
•7677* 
IZ079* 
•7679* 
•Z079Q 
•Z676S 
•7677* 
BZ07B* 
•767S* 
176**0 
•Z6*l* 
•76*70 
•76*30 
■76*9* 
•76*9* 
•Z6*66 
•7097* 
•76**0 
•76*9* 
•70S** 
•7091* 
•7697* 
•7099* 
•7096* 
•7699* 
•7696* 
•7097* 
•769** 
•7699* 
•77*** 
•77*1* 
•77*7* 
•77*9* 
•77*6* 
•77*9* 
•77*6* 
•77*7* 
•77*** 
•77*9* 
•77 1** 
•7711* 
•9717* 
•7719* 
•7716* 
•771** 
•7710* 
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C 


IM 


SH 


IM 


SM 


IM 


n 


IT* 


SM 


IM 


IM 


IM 


30  as  i«i. nms  lima 

na«i»*conecu>  imu 

m jontinue  sznss 

e The  EOLIONINC  SECTION  EORNS  I 'EASISLE  ORDERING  OE  THE  SUS  LISTS  SZTZOt 

C EOS  TNI  BUS  IHPC0AN3E  BUILDING  ALCORITNH.  SZTZ1S 

ir*i  szrzza 

IPHTNAIlt. NE.lt  GO  TO  MS  SZTZIS 

.ISTCltaLXNOIlt  IZTZSS 

<■1  azrzsa 

>o  zs  i«i »nsus  azrzsa 

noLismi  azrzra 

<ioaoourni.ii  azrzsa 

<z*<i»conccurhi*i  azrzsa 

so  rs  j-ki,<z  szrsas 

irtLiNOtji.EQ.at  go  to  rs  sznts 

««•«•!  azrsza 

oo  n sai.KR  szrsia 

XFILXST  M)  . EQ.LINRI  Jl  I GO  TO  TS  SZTJSI 

rt  continje  azrssa 

listinmunsoi  aznsa 

«*«m  azrsra 

M tFUINAIJt.ST.LINAIJII  GO  TO  ZS  SZMSS 

rs  jMUNiaj  azrssa 

xmixm  azrssa 

ra  continue  azrsts 

rs  sostinue  azrsza 

iP(N.NC.<Naus*tii  so  to  «az  azrssa 

xssaNi/z  azrssa 

IFIIR.NC.  IXSSNltt  SO  TO  SSI  SZTSSS 

C SETH  T4E  LINES  ARE  NIOEOENfO  INTO  • EIASII'.I  LIST,  THE  NUTUSL  SZTSSS 

C COUPLINS  OATS  IS  RESO  IN.  THIS  IN3.U0IS  TNI  NUTUSLS  EON  SLL  LINES  SZTSTS 

e IN  TNI  STSTEN,  REGAROLISS  OE  NON  TNI  SN0RT*3IRCUIT  STUOT  IS  TO  MO*  SZTSSS 

C CCEO  II.  E.  IT  SUNSYSTIH  AREAS  ON  30NPLETC  STSTENI , A NAIINUN  OE  SZTSSS 

C ZS  SUruiLLV  COUELIO  LINES  ARE  SLLOHIO  EOR  IN  TNI  EROGRAN.  SZTSSS 

uaois.isszt  ai.nonu  azrsts 

StaSRNONUTL  SZTSZa 

tPiat.NE.cii  go  to  ats  azrssa 

tPiNONu.co.ai  go  to  rr  azrssa 

IPtNONU.CT.ZSl  60  TO  SSI  aZTSSS 

RCA0CS.1S16I  It  At  II.  LOI  I)  .LRI  It.  .Sill  .INI  It  . lal.NONUI  SZTSSS 

tPIOJT.EQ.Z.OR.OJT.IO.101  SO  TO  TT  SZTSTS 

NRITIIt.tSSZ)  fLA(tl,LR(It,.R(lt,LSCXt.ZN(Il • lal.NONUI  SZTSSt 

C THE  POLLONING  SECTION  PROSESSES  EAUlT  INPEOANSC  SATA  TO  SE  USEO  INI  SZTSSS 

C TNI  PAOlT  CALCULATIONS.  THE  EIRST  JARS  REAS  IN  INDICATES  HON  aZTSSS 

C NASI  EA  JIT  INPEOANOIS  NILL  SE  INTERIOMOPALTI . TNI  EAULT  INPE0AN3E  SZTSIS 

C IOHSSI.  NO.  0*  PHASES.  ANO  PHASE*GN0  NOLTAGEINNI.  SUCCEEDING  CAROS  SZTGZS 

e READ  IN  THE  LIST  0*  SJS  NUNRIRS  TO  4HI3H  TNIS  EAJtT  OATA  APPLIES.  SZTAia 

C A I. ANN  CARO  StGNALS  THE  -NO  O'  THE  PA JIT  INPfOANSt  OATA,  NOPALTaRET. SZTSSS 

rr  REiois.iassi  az.noealt.ze.pn.vp  stress 

:Z«GRNOPALT  SZTMa 

IPIAZ.NE.CZl  GO  TO  Sl«  SZTSTS 

IPINOEALT.EO.St  SO  TO  AS  SZTSSS 

IPIOUT.EQ.Z.OR. OJT.EO.lSt  SO  TO  SS  SZTSSS 

nrit* < l.issit  z'.pn.np  szrrss 

SS  tPIPN.CQ.lt  SNVAaSRNAEI.  SZTT1S 

tsaitsss.*«p*«Pt/s<EA  strrts 

IPIPN.CO.il  SKVAaSRVAl  SZrTIS 
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Ml 


Ml 


Ml 


Ml 


Ml 


Ml 


Ml 


Ml 


Ml 


Ml 


m>ioniT/ti.«.ti 

IITMIt 

oo  os  i*i.:nt 

ICAO  (1(1019)  1*9 
00  it  J*1,2S 

tnwil  JI.EQ.OI  SO  TO  IS 

ifuut.es.  z.or.ojt.ei.  m co  to  si 
UNITE (1 (1099)  I*S(J> 

ti  otoaf9(jn»*esti?'/r9) 

0LQIIT9  ( J)  ) *4IHA6(  Z»7Z9I 

o«  continue 

03  CONTINUE 
SO  TO  77 

6 TNI  POUONIN6  SECTION  9I6INS  Til  90*  SJILOtVS  AL609ITHH  TOO  THE 
C POSITIVE  A NO  ZENO  SEQJENCi  IN»£04n:E  HATRISES.  IP  SHONT-CINCUIT 
C IS  TO  01  PERPORHEO  ON  JOHPIETE  NETNJRK  (ISV9*«>  SKIN  TO  1SS( 

C 0THER4ITE ( NESO  IN  AREA  OUS  LtST(S).  4 HAXINUH  OP  90  BUSSES  PEN 
C ONE!  IS  mONEO.  VAtJES  5*  ISIS  l TO  99  INOICATE  HON  HANT 

C ONES*  ME  TO  BE  STU9I*}.  7IRST , THI  9US  VOlTACES  SNE  INITIALIZES! 

04  irUOOOP.EQ.-l.MO.SCOP.EO.il  SSJP«B 
irUOOOP.EO.-l.ASO.SCOP.EO.SI  S5JP«Z 
triSOOP.EO.  l.OS.SCJP.EO.S)  SO  to  00 
90  0*  1*1 .NOUS 

05  ZOJS(T>«CNPLX(1.,O.I 
SO  TO  90 

00  SO  OT  1*1 .NOUS 

OT  tOJS(t>*SPLXV(V(II.IN6(t>) 

SO  NNITE (2. 1010)  N9US.SC0P.1STS 
trtI«TS.EQ.9>  SO  TO  10* 

ICOONT-ISVS 

99  tr<i:OUNT.EO.O)  AETU9N 
E0JT«ISVS*IC0UNT*1 
9E40(9(1092)  AS, 90S 
;3«0*N00STS 
triS3.NE.A3)  CO  TO  SIT 
iriN9S.6T.S0)  SO  TO  904 
4RITE (Z.1019)  I0JT.9RS 
9140(9(1009)  (N0( I) , 1*1  .NOS) 

30  99  1*1  (NOS 
ir(N9(II.E0.9l  SO  TO  913 

90  SONTINUE 
SO  TO  too 

too  OO  101  t«t(NOUS 
991 II PltST(I) 
ttt  SONTINUE 

tVlMBUVSO.P.99 

I0UT*XVZ 

49ITE ( Z.lOtO)  IOJT 
901*90 

IP(9RUS.LT. 90)  N9S*N9US 
tt«  4*0 

C TNC  POSITIVE  SEO.  B'JIlOINi  ALS34IT94  IS  SU990UTINE  BUS.  THE  POSI- 
e TIVE  Sto.  NATNIX  IS  ST04E0  AS  A VECTOR  OF  OI4SONAL  TfNHS  (1014), 
e ANO  AS  A VECTOR  OT  THE  UPPEN-T 914N6.E  TERNS  (1BUSI. 

SOB  SAIL  9Ut(N) 

tr«IERR.NE.*>  RETURN 

e TNE  1190  SEO.  OUIL 01 NS  ALSORITNH  IS  SUSR0UTI9E  OUSO.  TNI  ZERO 


0Z7T40 

ozrrso 

0ZTZA9 

oimi 

OZZZSO 

0ZZZ90 

0Z70I0 

OZT010 

ozrozo 

0Z7030 

0*7041 

omst 

IZT060 
•27070 
•27000 
027t9t 
•279(0 
•27911 
•27921 
•27930 
•27941 
•27991 
•2790* 
02797* 
•27901 
•2799* 
020000 
•2(010 
•20(2( 
020S3I 
•20140 
02MS* 
020  060 
0)0071 
0200*0 
020090 
020100 
020110 
020120 
020130 
020140 
020190 
020100 
020170 
020100 
020190 
020200 
020210 
020229 
020230 
•20240 
•20290 
020200 
020271 
•20209 
•20290 
•20300 
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s 

e 

sco.  kataix  is  also  stoaeo  as  a vectoa  or  oiaconal  teaks  izioiai, 

BZSS1I 

c 

and  a i'ctoa  or  uffea  taiangle  teaks  tztcusi.  mutual  doubling 

BZSSZt 

e 

IS  KAKO.CO  ar  SUBA3JTINE  mutest,  mmicm  xs  called  at  oust. 

OZBSSt 

ABB 

sall  ausaiHi 

BtCSAt 

triXEAA.NC.AI  AETUAN 

tzt  set 

e 

THE  rOLLOHINC  SECTION  CALCULATES  TAX  CAULT  SJAAEMTS.  THE  OFTION 

tZSSBI 

e 

IS  FAOVtOEO  TO  CALSJLATE  ALL  CAULT  TT»ES  IS-»N,  L-St  L-L,  AMO 

tZBSZB 

1 

e 

L-L*GI,  OA  JUST  THE  MAST  TMO. 

BZBSBB 

ASS 

JO  zaa  III, MBS 

SZBSBI 

tAoiuarni 

BZBAtB 

ZFiCNFLXIOLFIIAMI  , JLOlIANtl 

BZBA1B 

Z6>Z?CIIAM> 

BZSAZC 

trCt»HASE  (IAMI.EJ.il  GO  TO  1ST 

BZBASt 

»n 

c 

CALCULATE  THE  TMAEE-FMASE  FAULT  FOA  THE  ITH  SUSI 

BZBAAI 

ZZ»Zr*70I ACII 

BZBACt 

IFIZT.EQ.  » 60  TO  Alt 

BZCACB 

ANFA»EMUS (I AMI/ZZ 

BZBACt 

(A* At  MAGI ZZI /AEA. 1 ZZI 

BZBAtB 

ATS 

FAJlTI«CABS iampai 

BZBACt 

e 

CHECK  TO  SEE  IF  BUS  V3LTA3E  SUNNAAf  IS  TO  BE  COMFJTEOI 

tzt  St t 

IFIOUT. E0.lZ.0A.3UT.EQ.lt!  JO  tg  uc 

tzscta 

c 

CONFUTE  VOLTAGE  SUKKAAIESI 

BZSSZt 

00  III  J-1.M8S 

tzaesa 

til 

IAMlatUBFIJI 

aztCAt 

XFIJ.EO.I)  JO  TO  1Z3 

tztset 

HtaIAOOIJ.il 

attest 

ECaEBUS 1 IAM1 > •EBUSIH1I  * ENJS 1 IA4I /Tt 

tzs tea 

OUlJIaCABSIECI 

BZBSBB 

r 

IM 

so  ro  its 

tttset 

V-.' 

tzs  EC-ZF*EBUSItAMI/ZZ 

BZBStt 

OUlJIaCABSIECI 

BttStt 

III  CONTINUE 

tztaza 

c 

CONFUTE  FMASE*GAOUNO  'AULT  FOA  ITM  SUSI 

IZBSSt 

in 

tsz  zz*zaoiAtit*z.*»XAtii»s.*;r* 

BZBBAt 

ANFA«J.-aEBUSIIAMim 

tzttst 

ZZCaZZ/S. 

BZBSBB 

AAlS'AIMAGIZZEI/AEA.IZTEI 

azssrt 

FA'JLTLSaCABS  1 AN*A  1 

BZBStt 

l« 

e 

CHECK  TO  NEE  IF  BUS  FMASE  VOLTASE  SUHNAAIES  AAE  TO  BE  CONFUTEOI 

Itttft 

13S  IFIOJT.EQ.lZ.OA.JUT.EQ.lt>  SO  TO  IAS 

tzsctt 

• 

e 

CALCULATE  FHASE  VOL  TAG!  SUKMAAIESI 

tztett 

DO  1SS  Jal.NSS 

tzsczt 

lAHlatUBFIJI 

ttsrst 

• M 

IFIJ.EQ.il  SO  TO  ISA 

tZBCAl 

• 

MlaIAOOO.il 

tzcrsB 

EC*EBUSIIAM1I •EBUSIXAM)  MTIIUSINIIIZ.  *ZBUSI  Nil  l/ZZ 

tzs css 

UMFI  Jl  aCABSIECI 

tzscct 

XFIIFMASEIIAMII  .EQ.tl  SO  TO  ITS 

tZBCBI 

IN 

ICaEBUSIIAMtl>l«.N,*.ltSI«E SUSI I AHI  • 1 ZBBUSIN1I-ZBUSIN1I  l/ZZ 

BZtCBB 

UBFINBS*  Jl  aJASS  IECI 

tttttl 

EC«EBUS IIAJ1 1 M-.5..SA41  -ES JSt I AMI  * IZtBUS I Nt l-ZBUSt Nil 1 SZZ 

BtttlB 

UBFIZ*NS$»JI  aCABSIECI 

tttttl 

CO  TO  ISC 

•ZttSI 

111 

ISA  ECaEBUS!  IAMI  *S.  *ZF/ZZ 

•Zt  B At 

UBFI  JlaCABSI  SCI 

BtttBt 

IFIIFHASEIIAMI.EQ.il  30  TO  ISC 

ttttst 

ECaEBUSlIAMI *I«.C,*. till -EBJSI IAMI *1 ZtDIAIII -ZOIA III  1 /ZZ 

BZBSCt 

« 

■ 
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1 

ubpinos+umcabsteci  bzbbbb 

• 19  EC«EBUSIIRi>  8441  -EA JSIIRNI M IB3IAI II -ZOIA Till  FZE  BZBBBB 

UBPCZ*NBS»JI-CABS<ECI  WMOI 

IS*  CONTINUE  BZBBil 

C CONFUTE  LINE  FAULT  CURRENTS  F3R  T-Pi.C JTLLI . AND  LINC-GNO.  BZBBZB 

5 USE  X it  TRIM  CZBUS  AiO  IOIAI.  SCAN  .IN!  TAIL!  FOR  LINES  CONNECTING  MI1U 

in  e busses  in  ists,  then  :al.  fault  current  as  cjuli  and  curilli.  bzbbab 

N81MBS  KITH 

LL-t  KSfU 

SO  1A8  NN*1«91  BZBBZB 

L1(NNI>L?(HNI«0  BZBBBB 

• Z*  1M  CONTINUE  BZBBBB 

SO  lit  II«1 fNBS  BZBBBI 

09  1AZ  L»1 »NL  *Z*B1« 

IFILINAILI.NE.IUBPTIIII  S3  T9  ILF  BZ««ZB 

IFIL1NATLI  .LT.LINBTLD  S3  TO  INF  BZBBJB 

939  00  ill  JJ*1.N9A  BZBBAB 

IFTLlNBCLI.Ni.  IUAPTUJI I CO  TO  1AA  *Z*«*« 

IFICHPLX IZBRTLI  >ZB  I (LI I >E3.  0 1 GO  TO  911  BZ9B6B 

tFIJJ.EQ.il  63  TO  1AZ  BZ9BF0 

IFIII.EQ.il  30  TO  IAS  BZ9BBI 

S 39  N1»IA00III.II  919999 

NZ*IAD0(JJ.  II  BZ91BB 

FI*  ZBUSTNZI  • ZB  US  INI  I BZ9118 

PN3aZ*IZSUS(ilMF9USINZ)l*CHA.XI6tLI,BILll  BZ91ZB 

ZS« (ZBBUS IN1I- ZOAUS li?l  I FCNPLX IZBR ILI .10 1 (LI  I BZ91SB 

•At  60  TO  1 A*  BZ91A0 

1AZ  Nl«IAOO(It.II  0Z916B 

FI»ZDIA  III  'ZIUS  till  BZ91B8 

60  TO  1AA  BZ91FB 

IAS  N1«IA00IUU,II  BIN  IBB 

•A*  FI*ZBUS  (Nil  •IOIAI  II  8Z919B 

60  TO  1AA  SZ9ZBB 

1AA  PNS“Z* IZOIAIII -ZBUSINII 1*CNPLX I6ILI .BILI I BZ9Z1S 

ZS»  (ZBOIA 1 1 1 -Z  BB'JS  I N1 1 1 FCNPLX  IZ  BRI L I . ZBI  ('.  I ) BZAZZfl 

IAS  FI6»IPNS*ZSIFZZ  BZ9ZSB 

•••  FIAaFZ*CHPLX<6IL)'B<LI|/IZ3IA<Z>«ZF|  bzbzab 

CUILt  >*C»BS<rI»>  BZBZSB 

IFIINHASIIIRNI.EO.il  3UILLI *8  BZBZAB 

CUR  ILL  MCA  AS  IF  16 1 BZBZFt 

uiili-linaili  bzbzbb 

999  ISILLMLINSILI  BZBZBB 

LL«lL»i  BZBSBB 

1A6  CONTINUE  BZBS1S 

1AZ  CONTINUE  BZBSZB 

1AB  CONTINUE  BZBSSS 

SAB  e CNECR  T3  SEE  IF  l-L  ANS  l-l-S  FAULTS  ARE  TO  BE  CALCULATED!  BZBJAB 

1AB  IF ISSOP.EQ. Z. OR, SC3P.EQ.SI  CO  TO  IBB  BZBSBB 

IFIt»NASE IIRNI.ES.il  63  T3  1FB  BZBSBB 

C CALCULATE  L-L  FAULT  FOR  ITN  BUSTS  AND  3 PHASES  FAULTED)!  BZBSZB 

ZZ»Zr»Z. *ZOIA  (II  BZBSBB 

Ml  IFIZZ.EQ.il  60  T3  Bit  BZBSBB 

ANAR*  I,"ZSZ*EBUS  IIRNI  /II  BZBABB 

ZZl*ZZ/l.ZSZ  SZBAlt 

<RlL»AINAGtZZ£l/REAL IZIEI  BZBAZB 

FAOLTLl>CABSIAN»AI  BZBASB 

•ZB  CC'ESUSIIRNI* IZF»Z. *10161 II I /II  BZBAAB 
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jo*(iooi>*caos(e:>  itn» 

te*t9us(i4N>*((>.9,-.o66>*z*>zoi4(D>/zz  Ktwi 

jo* <10021 •caos<f:i  kwi 

ie>E«us(iwM*ii>.ft.t»6i*z*-z,nt(iM/zz  020600 

87*  M*IIII]|>CUSICI  IHMt 

C C04»UT7  l-L-S  FAULT  FM  ZTH  IJS*  029  900 

ttiZ)uai»«l«(((0!im»].Mt'*t;ii  itntt 

«<(•«•  3. •CSUS(RM)  tit  029920 

»ALTLLG«CA9S(A4»4I  029930 

980  («u;>UHK<ZZ)/HH(Zn  029960 

ZZ*Z<tIAtXt*ZOIAtll*2.*ZOI4tt)*(7BOIAtI)*3.*(ZF*2G)l  9Z9990 

44»A>1. 732*E8UI  (144)  *(709I6(  !)•(•. 9,.  0661 *79X1 (I) *3.* < 7F*ZG) ) /ZZ  029960 
FAJLTLO«CA4S(A*F4)  029970 

ZZI»77/tl.T3*M70OIAtII-t-.3,.a66l*ZOIA(II*3.*tZF*ZG)l)  029900 

989  4419* AI4A6(  ZZCI  /4E4'.  (ZZS)  029990 

IFtm9.LT.at  44.0.49L9*(-1.I  029600 

4494«1. 732*C8UI(I44)  MZOOIA 1 1»-t 066t*ZOI4<  I) *3.  *(ZF*ZCt  I /ZZ  029610 
FAULHCaCAOSIAKFA)  029620 

ZZ!«ZZ/(1. 732MZ89I* f !)•(•. I 0 66)  *Z0XA<  It  *3. •( ZF.ZSI  It  029630 

990  4415>AIHAC(ZZC)/4CA.(Z7F)  029660 

ZC*3,*EBUS(X4M)*73I4tXI*(Z03X4(XI*2.*(ZF*Z6)l/ZZ  029690 

’J9»(ia04t>C«BS(E:i  829660 

EC*-3.  *E9US  (194)  *Z3X A(II*(7**ZSI  /ZZ  029670 

JB»(1009l-C60SIE:t  029600 

999  S LIST  ITM  9US  FAULT  SU44A4IES  99  0UT»UT  FXL|t  029690 

190  44IT7 (2.10101  I44.ZF.ZG  029708 

44X77(2,10111  fa  JLfJ .FAULT.' .FAJ.TLL, FALT.LG,44»  44LG.44LL, 44LLS,  029710 

1 J9*(1001t, UBFtlOOAI. U9FI1082I  .UOFIlOOOt.UOFt 10031. U9F(1009I.  029720 

ZFAJLTL9.99L0.FAULT.:,mG  029730 

GOO  IFtOJT.Cq.12.09.3UT.CQ.18l  13  T3  200  029760 

IFOJT.C9.  13.04. 3UT.CQ.  161  13  73  191  029790 

•4IT7  (2.10121  trJB*(JlfOU(Jt  ,U9»(  Jt  .UBF<49S»JI  ,U4*<2*493* Jt  , 029760 

1J»1,44S>  029770 

191  44IT7<7.1031)  029700 

G09  09177(2.10321  029790 

44»IL-1  829000 

49ITf(2. 10331  (Lt(MI,L2(tt),6J(4t,  3U9CNI  ,9*1,  NN!  029010 

SO  T9  200  029820 

1G9  44X77(2.1019)  I40.ZF.Z6  829030 

GIG  44IT7 (2.10131  FA JLTI .FAULTLS.44, 4913  029060 

ZFOjT.ea.iz.oo.aur.ca. tot  S3  79  200  029090 

I Ft  O'JT  .EG.  13.04.3UT.CQ.  161  S3  *3  161  029060 

04X77(2,10161  (XU84(J).0U(U) ,U37(U»  ,009(493*3)  ,U8» (2* 48S*U I,  029070 

tj-l.oest  029000 

GIG  1G1  00*LL-1  029090 

04irC(2.1046l  029900 

44ITt (2.10301  (LI (41 ,L2(M) ,3U(M) , CU4(0l,4*l,O4l  029910 

SO  73  200  029920 

170  44X77(2,1010)  X44.ZF.Z6  029930 

GOO  44177(2,10211  FAULT. G.44L6  029960 

(F(3UT.e0.12.04.3UT,C0.  101  S9  T9  200  029990 

IF(0'UT.EQ,  13.09. 3UT . CQ.  161  S3  *3  in  029960 

44X77(2.10221  (XUG*(  Jl  ,UG9(  Jt  ,U9»(M9S*Jt  , JB4(2*40S*Jt  .>1,9931  029970 

171  »4tTF(r,1041)  029900 

GOG  44*U-1  029990 

44X7712,1061)  (Lt (41 .L2(N),3U4(NI .4*1,94 I 030000 

*00  304TINUC  030010 


i 
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c 


in 


in 


in 


in 


in 

C 


iff 


668 


l?t 


t COUNT ■ICOUNT-t 
1«1»NBS 

irm.iT.N8os>  nss»nous-n 

tr<N«S.ST.SO>  803*30 

tnn.  co.nbus>  i*o 

irilSTS.NE.O)  S3  TO  88 
tMH.  EQ.O)  RETURN 

;o  to  m 

888  BRITT (2,100  8>  X 
SO  TO  880 

881  NRITE(2,1001)  t 
SO  T3  888 

002  4RITr<2,1002>  M8JS, (LIST(I) , 1*1, <) 

SO  TO  880 

801  4RITX (I. 1003>  NONU 
SO  TO  880 

808  4RITT(2,1008>  MBS 
SO  T3  880 

80S  britme.ioos)  x.xcsin 

SO  TO  880 

808  4RIT? (2,1008)  LTRMI)  ,LTR8<t),lT«CI> 
SO  TO  880 

OBT  4RITTC2.1007)  X 
SO  T3  880 
888  NRITC (2, 1008) 

SO  TO  880 

888  BRITEI2,1017>  ISS,  I*.  t J9PII)  , !•! , IK) 
SO  TO  888 

818  BRIT- (7,1818)  IU3BII) 

SO  TO  880 

811  BRXTTf 2,1030)  LINO(l) .LXNB(L) 

SO  TO  880 

812  4RXTS 12.10881  C 
SO  T3  880 

811  4RITT(2,1088I 
SO  TO  880 

818  BRITT  12.10801  CC 
SO  TO  880 

818  BRITT(2,1060>  Cl  ' 

SB  TO  880 

810  BRIT* (2,1080)  C2 
SB  T3  880 

81T  BRITT  1 2, 1088)  Cl 
888  IIRR>IERR*t 
. RETURN 

I no 


818828 

010010 
030080 
010080 
010060 
010070 
030000 
030080 
030100 
030110 
030120 
830130 
030180 
030180 
030160 
030170 
030100 
030180 
030208 
838210 
030220 
030230 
830280 
030260 
030260 
030270 
030200 
030280 
030300 
030310 
030320 
030330 
030  380 
030380 
830360 
030370 
030300 
030380 
030800 
030810 
030820 
030810 
030880 
030860 
030860 
030870 
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HIM* 


c 


II 


1* 


20 


0 


M 


SU5R3UTINE  SUS(  HI 
INTEGER  CONEC 

CONPLEX  7BUS,ZOBJS,70I*,Z03T*,7N,YC3UP,733UP,E5US,ZC,ZLL 
JONNON  /CONB/LINA  (1*501  ,LIYN (14*91 ,S( 1*501  ,5<t*50l  ,P<250I  ,Q(230 
l.PHBlSOIjPHANGISOl.'.TRA  <250I,LTRS<250I,TA*<2S0I,T1N(25  0)  ,V(23tll 
2TN<<750I,IUBPP(2501,ANG(2501  ,t5US<2}OI,35*<259l,UBP<3000l, 
SBUSNIME(2501  ,LPMA(S01  ,IIST(?S»!1,IU0»(2501  , 3HIN <2501 ,3MAX <2501 , 
*1BPP<2501  ,UPPP<31001  , J*P<  306  01  , J3PP1  JO 001  , ICCI25 II  ,OL»  <2501, 
5291111,501  »Z0R(1*59I, B 01 A(2191,C31EC (2501, 3L 0(2501, I PHASE (2501 
JOHNON/CONC/  MA (2501  ,MR<250I  , JCOL  <10001 , 3 J < 10001  ,10512501 
30H10N  /CONST/  N3US,NL,ISS, I8V, Ll 1,LL 2,LL 3,Ll*, NOTR,IZ,NOLTC 
l.ITRl  » ZTR2,PT0C,3T0L , NLC 
JONNON  /SAVE/  IERR 

COUPON  /ZER0/LA1251  ,L8(25I  ,LR(25I  ,131251  ,ZH 1251  , YCOUP ( 9, 91 , 
1ZC3J* ( 251 #1 JK125I  ,<JI <251  ,irZ(25l  ,ISAVE<01 ,ZOIA< 751 ,ZOOIA <751 , 
2ZBjSt?T75>«Z08JS<27751«E8US( 2501 , 7C(75) 

JONNON  /Z CONST/  N0NU.N3S, IR3V, IN JT.IOUNN 
till  *02107 11X»"ERR0R  TV  POS.  SE3  NJIL0IN5  AlGJRITNH.  BUS", I*, 

1"  32  BUS“,I*,“  SHOJLP  HAY*  BEEN  IN  SUBSYSTEM  SUS  LIST  RUT  HASH* 
till  FORMAT <1X, “ERROR  II  POS.  SEO  101.0115  ALGORITHM.  LINE“,I*,“  TO 
!!*,“  SHOULD  HAVE  G(L  1 OR  5<L1  GREATER  THAI  ZERO. “/I 
1112  FORMAT <1X, “ERROR  II  RUSCM1  RO'ITIIE.  HUHRE2  OF  LINE  ELEHENTS  IAS 
1 JEEOEO  ARRAY  SIZE  3F  75.  RE3JJS  SIZE  OF  SUBSYSTEN.“/i 
C CLEAR  ALL  ARRAYS  AN3  RESTORE  NA  ARRAY,  IU8P  IS  BUILT  TO  BE  SUB* 

C SYSTE1  BUS  LIST.  L IS  LINE  ENTRY  NJ1RER  FR01  GUI  9<L!  LIST. 

C LOO*  STARTING  AT  too  TAXES  EACH  LINE (LI  AND  9JIL3S  SYSTEN. 

C IF  BUS  IS  NOT  IH  SUBSTSTC1  LIST,  IT  IS  DROPPED  AT  50  TO  100. 

C THE  L NJNRERS  COME  FRON  JBP(I  IN  L03P  19  OF  FAULT. 

30  5 1*1,75 
ZOIAIIl-O 
!U5P<!!«9 
ZC<It*9 

0 30NTINUE 

30  12  1*1,2775 
2BJSI11*! 

12  JONTINUE 

30  It  1*1  ,NBUS 
OA<E1<CONEC<II 
It  CONTINUE 
<•0 

30  111  1*1, ISS 

ITEST.l 

L*JSP<I1 

JA.9 

JC«9 

J0*9 

IFIGIL  I.EQ.  9.  ,AN3.  9t Ll. EQ. I. 1 30  TO  OB 
tFUtNBUI. EQ.lt  63  TO  25 
00  1 J-l,« 

XFILIMAIO  .EQ.IU5PIJI1  GO  T3  2 

1 CONTINUE 
tTEST.O 

2 JA*J 

00  I J-l.K 

IFILINBUI  ,EQ.  tUBPlJtl  G3  T3  0 
1 CONTINUE 

tFIITEST.EQ.il  33  T3  III 


IIIAII 

•mu 

•39591 
930519 
030520 
039530 
0305*0 
030550 
030560 
039570 
030599 
030559 
030600 
•30610 
030620 
•30630 
•316*0 
030650 
T“l 030660 
, 030670 
030690 
EX030650 
030700 
• 30710 
030720 
031730 
0307*0 
031750 
•30760 
•30770 
•30700 
•30751 
•3M00 
•30010 
•31020 
•31030 
•310*0 
•31050 
■3II60 
•30070 
■3I09I 
030150 
•3 1501 
030511 
•31521 
•30B39 
•315*1 
•3I55I 
•30560 
•31571 
•3I5II 
•3155* 
•31IB( 
•Bill* 
•S1«2I 
•31131 
•31«*« 
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i 


e 

LIN!  t*  * MINCH  MON  -P"  TO  "J“l  T*E«!PO«!  IMP  P »NO  01 

•I11GI 

L1>LIN9ILI 

•91*09 

M 

LT'LINAUI 

•31*71 

JC*J 

him* 

JO«J* 

m«oa 

>0  TO  1 

imn 

1 linlNMLI 

•mil 

69 

L7<LINBILI 

IS11TI 

je>i* 

•31131 

JO«J 

•311*1 

IPIITtST.EQ.il  GO  TO  If 

•31191 

c 

LIN!  t!  * MINCH  MON  0 TO  PI  100  N'N  3US  TO  STSTCNI 

•31160 

M 

• 

JJ*X 

•31171 

<■<»! 

•31111 

c 

K It  OHfCNEO  TO  PNEVENT  0VM-6JN  OP  M«»$  Z9US.Z0II.ZC. 

•3119I 

c 

SIT!  OP  THUS  IS  KTIMtNEO  IT  < »N0  1*00  90JTINE. 

• 3 120 II 

IPIN.  GT.7S.  1 GO  TO  MT 

•31Z1* 

79 

IU1PINI-L1 

•31771 

00  » J-l.JJ 

•31731 

IPIIU9P(JI.EQ..ZI  GO  TO  7 

•317*1 

• 

CONTINUE 

•31291 

*0  TO  Ml 

•31761 

N 

T 

GO  11  N-l.JJ 

•31771 

N1«IA00(N.NI 

■31T6( 

IPIN.EQ.  Jl  SO  TO  1 

•31791 

N7«I*00(N,JI 

•313*1 

ZNUSINIKZOJSINTI 

•31311 

•9 

GO  TO  11 

•313TI 

• 

THUS (Nil ■ZQI6I Jl 

•31331 

11 

SONTINUE 

•113*6 

11 

CONTINUE 

•31391 

tOI*(KI«TOI*(JI«l./CHPixtS<LI  #f  1 .11 

•11361 

N 

SO  TO  11 

•61371 

c 

LIN!  IS  « LOOP! 

■31190 

1* 

N1«N7M 

•S119I 

90  M J»l»< 

•!!*•• 

IP  IIUOPI J)  • !Q.  1 1 1 N1*J 

•31*1* 

W 

IPIIU9PIJI.CQ..ZI  «7»J 

•31*70 

11 

CONTINUE 

•M*M 

00  tl  J«1,N 

••***• 

IPTJ.E0.K1I  60  TO  17 

•11*91 

IPIJ.EQ. NZI  GO  TO  IS 

•11*61 

1M 

N1*I600I  J.N1I 

Ul*7« 

IMUOUiUI 

•S1*M 

7CI Jl*  ZOUS INI  1 "TOUSC NT  1 

•11*91 

GO  TO  Tl 

•31SM 

17 

N7aI600<  ANTI 

•31911 

in 

ZCIJI*Z01«(Ntl-Z8JSINZI 

•sion 

GO  TO  TO 

•S1G31 

11 

N1-I600IAN1I 

•119*1 

TCI Jl  ■ Z1UI lilt*  TOI* INZ 1 

•31 SSI 

>1 

CONTINUE 

•SIM* 

it* 

91*1*091X1. Nil 

•11»»« 

IPIN7.LT.N1I  IN •1*90 (NT. Nil 

•31«M 

IPtONPLNIGtLI.llLll. FQ.lt  SO  TO  111 

0*1991 

111*70161X1 I7Z0I* 1 <71 "T. *19 JS INI 1 *1.  /CNPLI IGILI  , 1ILI 1 

•31610 

SO  T9  11 

•sigh 
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Itn  NAX'P-NOOE  THE  6£P  I 
» 00  36  J-l.X 

tPCLINKL)  .EO.IU0»CJH  60  T3  31 
36  CONTINUE 

LINE  IS  I BRANCH  MON  SEP.  TO  "O'*!  100  MEN  BJS  TO  STSTEHI 

tUSP(K>«L3-LINACL> 

IPCCNPLX(6CL>  ,BCL  > ) » EQ.I)  S3  TO  Ml 
Z0tA<K>«l./CHPLX(6(L>,*(L>> 

.1*0 

60  TO  SI 

UNI  TS  » too*  CLOSINS  ELENENT  CSEP.  TO  “Q"»«  *00  LOOP  ELEMENT • 

36  .1*0 

L3-LINACL) 

JO»J 

DO  61  N-1,X 
XPCJ.EQ.M  SO  TO  IS 
Nl-XAOOCN,  Jl 

zccnmzbuscnd 
60  TO  6# 

39  ZCCN>-ZOI*(J> 

61  CONTINUE 

ipccmplxcccl>,s(.)>.eq.i>  so  to  m 

ZLL-ZOXACJ>«1./CNPlX(0<L>,S(L>> 

ELIMINATE  LOOP  AXIS  NT  K60N  6E3UCTX3NI 
60  00  IS  II-l,< 

00  16  JJ-l.X 
IPIIX.EO.JJ>  S3  TO  IZ 
IPCII.6T.jJ>  SO  TO  13 
N 1-1*00(11,  JJI 

ZSUSCNl>*ZSJS(NlWC(II>-ZCCJJ>/ZLl 
60  TO  13 

•3  ZDX*CII>-ZOIA(IX>-ZCClt>-ZSCXI>/ZLL 

•3  CONTINUE 
66  CONTINUE 

IS  CONTINUE 

SO  T3  SI 

REDUCE  «UIS  CONNECTION  COUNT  P06  SUSSESI  ELININITE  PTH  06  OTM  AXIS 
IP  ILL  CONNECTIONS  TO  THAT  BUS  A6E  COMPLETE  AND  THE  BUS  IS  NOT  IN 
TNE  A»f»  OP  STUOYI 
SB  Ll-LINBIL) 

.3*LtNIIL> 

SB  CONTINUE 

IPILl.EQ.I)  60  TO  IS 
NACL1>>NACL1>-1 
IPCNML1)  .NE.  I>  60  TO  SS 
00  S3  N-l.NSS 
IPCNBCH.N>,EQ.L1>  60  TO  SS 
S3  CONTINUE 
ELININITE  PTM  AXIS! 

CALL  SNAPZI JC,K> 

N-X-I 

SS  NA(L3>  -NA  Cl  3>*>1 

IPCNML3)  .NE. I>  SO  TO  IBS 
00  SI  N»l,  NSS 

IP(NB(N»N),EQ.L3>  60  T3  IBB 


SI  CONTINUE 

ELININITE  QTH  AXIS  AN3  AOJUST  INOEX 
IPCX.LT.JO>  91,61 

91  JO-JC 

•I  SILL  SNAPZC  JO.XI 
X-X-l 

ill  sonTtmn 
6ETU6N 

BSS  461TEC3.-1  "BUS  LIST  P01104S" 
46XTT C3,*>  CXUBPI J> • J-l, X> 

SOI  46ITPCZ, 1BIB>  LINAC.> ,LINSC.) 

SO  T3  SIB 

SB1  46ITTC3,1BI1>  LINACL > ,LINSCL> 

SO  T3  SIC 
SB3  46IT? CI.IIIZ) 

SIB  IE66«IE6S»l 
6ETJ6N 
INI 
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t susatutine  sum  mi  omsto 

INTE5ER  CON  EC  IKMI 

CONPLEX  ZZ,OFFOU6,DIA6,ZLL,ZHA,ZOOIA,ZrjS,Z08US,YCOUP,ZC,  932390 

1ZC3U»,ZM,EBUS  (32000 

• COHNON  /C0HB/LINA(165(l,LtN9<169», 3(16501, 0(165(1, P(25(),9(250l,  032010 

1. 049(001  ,PHANG(50  ) ,.T*A  <25 01  , IT«  (210  I ,TA»<250 1 , THN<25  01  ,X(?901 , 032020 

(TNX<790),IUBPP<25(t,ANG<Z51l  , INUS (230 1 ,09»< 2501 , U8PI3000) , 032030 

3SUSX1NE<2S(),LPH1<5(»,LIST<259>,IU9»(290>,9NIN<290),QNAX(290>  , 032000 

6J0PP<253),UBPP(T(0#)  ,J9Pt.TO(0>,JSPP(39(0),ICC<?50),OLP<250),  (32090 

10  91(1(10901  ,ZON(1650),BOIA(2IO)  , CONES (250)  ,3LQ(250)  ,IPNASE(250I  032060 

CONHON/COHC/  NO  (2901  ,N<M250I  , ICO.  (10(01, 0J<  10001  , 109(290)  032OZ0 

CONNOR  /CONST/  N9US,NL,ISS,tP/,L.l,*L2«LL3,LL6,NOTR,XZ,NOLTC  032090 

t,XT«l,ITR2,PT0L,aT0L,NLC  032090 

CONNTN  /SAVE/  ICAR  032900 

19  COHNON  /ZERO/LA  (29) ,LB<25),LP(?5I  ,L$ ( 291  » ZH<  25> « VCOUP ( 0,0) , 032910 

IZC3J*(29)  «X JK(2 II  ,<Jt<?5>,IT7(?5l ,ISAVE<6),70IA<75>,Z0OIA<75>,  032520 

2Z0US(277S) , Z 0 BUS ( 277  3 > »ESUS  < 230) , ZC<75)  032930 

COHNON  /ZCONST/  NONU,N9S,XA3H,INJT,IDUNN  (32500 

1(00  FOANAT (IX, "ERROR  IN  7EA0  SCO.  SUILOING  ALJORITHH.  9US~,Z6,  032550 

20  l*0A  9US”,X6,"SH0JL3  MANE  SEEN  IN  SVJTEH  LIST,  BUT  HASN'T!  I"/)  032560 

1(01  »0ANIT(1X, “ERROR  IN  ZERO  SE3.9UI.0INS  ALSTAITNN*  LINE  FRON-,16,  032970 

I*TT“,I6,“  RUST  RIFE  ZERO  SET.  IN»E9»NCE  NTT  E3.  TO  0.“/)  032530 

1(02  »OANAT (IX, “ERROR  IN  BUSO  AT  JUNE.  NJNSE*  0*  LINE  ELENENTS  HASEXCEE  032590 
13E)  79  ARRAY  SIZE.  REOUCE  SIZE  O'  S JSSYSTEN.”/)  032600 

29  C SEE  CTNNENTS  IN  BUSIN)  RO JTINE , SA*E  LOCATION  AS  HERE.OXFFERENCE  032610 

C IS  THU  PUSOINI  HAS  ROUTINES  fit  MUTUAL  INPETANCES.  (32620 

30  1 1*1,79  032630 

tU9P(t)a(  (32600 

Z0)tA(II*(  (32650 

SB  ZC1IIX  (32660 

1 CONTINUE  032670 

90  It  It* 1, NOUS  0326(0 

NAIItl *CONEC(XX)  032690 

11  CONTINUE  (327(0 

39  30  9 1*1,2779  032710 

2091f9(I)*(  032720 

9 CONTINUE  0327 TO 

<■(  (32700 

30  1(0  1*1, ISS  032790 

60  t TEST • 1 032760 

.* J9*< It  032770 

JAM  0327(0 

JCM  (32790 

JOM  03(0(0 

09  IFTLINBTLI.CQ.fll  60  TO  50  032010 

00  2 J*l,«  032(20 

tF(LXNA(LI,EQ, IUBP1JI)  SO  T3  3 (32(30 

2 CONTINUE  03(060 

ITIST*  0 (3(090 

99  3 JAM  03(060 

DO  6 J*1,K  03(070 

IF(LINBIL).(3.IUSP(JII  60  TO  I 032(00 

* 6 CONTINUE  (32(90 

tP(ITEST.EQ.O)  GO  T3  090  (3(9(0 

99  e LINE  ts  A BRANCH  FROH  "P“  TO  "3”»  SOAP  P ANO  31  032910 

LintNBlL)  032920 

L(*LINA(l)  03(930 
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T9 


69 


•9 


99 


169 

199 


199 


JCO 

JO«Jt 

so  ro  6 

9 11*1199(1) 

1**1190(1) 

iC*J» 

J0*J 

iFiiTEST.ea.i)  so  ro  ** 

5 119!  IS  9 B99MCH  *939  “0"  19  STSTS1  TO  9*9  9JS  ”•“)  900  9E9  90S) 

C THE9  399  FOR  HUTUtLSI 

6 JJ*9 
KK»t 

C K IS  39ECKE0  TO  PRETEST  OTER*RJN  OF  99999$  HSUS, T90I9.IC. 

C SI*!  of  2#9US  9999V  IS  OCTERMITEO  9T  K 990  1900  ROUTINE. 
tF(K.  ST, T9,  ) CO  TO  90* 

IU0P(9)«L1 

IZ»8NPLX(Z0R(U,Z*I(L)) 

IF(909U,E0, 6)  GO  T3  *0 
391L  MUTEST  (L1,L2, 72) 

IF(IERR,ME, 0)  RETURN 
IFdROM.EQ. 0)  30  T3  TO 

C 0999C9  99 S MUTUALS  193  IS  90T  THE  FI9ST  LIME  OF  9JTU9LLV  COUPtEO 
0 SET)  909  B99MCH  H/9UTU9LSI 

oo  r j*i,jj 

IF(IUBF(4.EQ.L*)  60  TO  9 

7 C09TI9UC 
SO  TO  900 

o too 

00  19  J-1,JJ 
ZLL-0FF0M61  31,  0) 

IFI1E9R, 9E,0)  9ETU99 
91*19001  J,  13) 

9**I900U,9) 

*OOUS|9*)*ZOOJS(M1)«TLL/t:OJF(1,1) 

10  CONTINUE 

ILL«0I96( JJ,9) 

91*1900(10,9) 

IOOI9(9)**09US(M1)»((1.0,0.(»TLL)/V;OUF(1,1> 

30  TO  90 

C 099909  OOES  MOT  HAVE  9UTU9LS,  09  IS  THE  FIRST  LIME  OF  9 NUTU9LLV 
0 C00*L!1  sen  900  9999:9  N0/9UTJILSI 

CO  00  *1  J»1,JJ 

tPIIUNP(J>.E0.L2>  so  to  *2 
*1  CONTINUE 

30  TO  900 

CC  00  *9  N*t,JJ 

91*1900)9,9) 

IF(N.ea.J)  60  TO  23 
N(*I900(N,  J) 

IOOUS(M1)*Z09JS(NZ> 

00  TO  *9 

*1  2tOUS(Nl>*ZOOt9 (J) 

*9  CONTINUE 

t(3I9(  R)  *ZOOI9(  J)  *xt 
30  TO  00 

0 1191  It  LOOP  CL0SI93  ELEMENT)  3H9  FOR  9UTU9L3I 

*9  ZZ*39PLI(Z0R(L>,I0t(L)) 


01*999 

*1*990 

*3*960 

03*97* 

01*9*0 

01*99* 

033**0 

033010 

033020 

*13*3* 

*13*90 

*13*9* 

*31*6* 

ositrt 

*11*90 

*33*9* 

0131** 

•3311* 

•3312* 

01313* 

*3319* 

•3119* 

•3316* 

03317* 

•m»* 

•3319* 

•132t* 

•31*1* 

•3322* 

•3323* 

•31*9* 

•31*9* 

•3326* 

•1327* 

•33299 

•33*9* 

63339* 

■33311 

•3332* 

•3333* 

•33391 

•3339* 

•3316* 

•1137* 

•3339* 

*3339* 

•339** 

•3391* 

6319** 

■3393* 

•3399* 

■1399* 

•1196* 

913979 

6119** 

•1199* 

•lift* 
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tMN01U.E0.tl  60  TO  01 
CALL  1UTEST(Ll.l»,2Z) 

IFlIIRR.Nf.  0)  RETURN 

100*  41*  HUTUALS  AN3  IS  NOT  TM£  FIRST  LIME  0*  A NUTUALLV  COUFLEO 
SET!  103  LOOP  H/HUTJA.SI 

00  26  J*1.K 

IFtIUOPtJ)  .£Q.ll»  K1>J 
IFtIUOPtJ)  <SQ.  12)  K2»J 
EO  CONTINUE 

irtKl.rO.O.OR.Kt.EO.  0»  60  T)  900 
00  30  J«l.< 

ZLl*0FF0H6(K.JI 
XFtlERR.NE.t)  RETURN 
Nl«IAOOtJ.Kl> 

N2*IA00tJ.<2) 

N3*IA90tJ.<»l> 

70SUStN3)*Z»9JStNl>-20IUStN2)*ILt/VC3UPtl,l> 

30  CONTINUE 

2l.OIA6fK.K) 

91*IA00IK1,K«1> 

«t>IIDOKt.K«ll 

ISOIAtKHMZO 80S  C Nil  •Z0BUSIN2)»t  11.0*  0.1  ♦ ZLD/VCOUPtl.l) 

LOO»0OOr5*SoT  NAVE  1UTUALS.  30  IS  TIE  FIRST  LINE  OF  NUTUALLV 
COU*LED  SETI  AOO  LOOP  VO/NUTUI.SI 

01  <l*w«l 

DO  02  J*I.< 

IFtIUOPtJ)  • EQ.L1)  <l*i 
IF IIU9PI J)  .EQ.L 2)  KZ*J 

02  CONTINUE 

IFtKt  • EQ.  O.OR.KZ.EO.  01  60  TO  900 
00  05  J*l.< 

IFtJ.EQ.Kl)  60  TO  03 
IFtil.SQ.K2)  60  TO  00 
N1*I  AOOt  J.Kl) 

N2*IA00tJ.K2) 

zcui*zaaustNi>>zaousiv2) 

60  TO  Of 

03  N2*»t  AOOt  J.K21 
7CfJ)-ZOOIA(Kl)  •Z0SUSC92) 

60  TO  09 

00  Nl*IAOOtJ*Kl) 

ZCtJMZOOJSfNl)  •ZOOIAt  <2) 

Of  CONTINUE 

Nl*II00tKl.K2l 

tll«700IAt<ll*20JXAIK2)-2.*Z09JSINl)*ZZ 

LINt°NAS  ONE  NOOE  TIE  REFt  CNN  IF  OTNER  NODE  IS  IN  SVSTENI 
ft  ZZ*3NPLX tZORIL) . ZOI ID) 

00  fl  J*1*K 

XFtLINAtL)  .EQ.IUSPf  J)  > SO  T3  *• 

LINE  IS  SRANCHUFN09  RE».  to  "3*1  AOO  NIN  9JS  TO  SVSTENI 
.1*0 
JJX 
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033920 

033930 

033900 

033590 

033500 

033970 

033500 

033990 

033600 

033610 

033620 

033630 

033600 

033690 

033660 

033670 

033600 

033690 

033700 

033710 

033720 

033730 

033700 

033750 

0T3760 

033770 

033700 

033790 

033000 

033010 

033020 

033030 

033000 

03309: 

033660 

033070 

033000 

033090 

033900 

033910 

033920 

033930 

033900 

033950 

033960 

033970 

033900 

033990 

030000 

030010 

030020 

030030 

030000 

030050 

030060 

030070 
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tUI#<K)*LZ*LINAlL> 

ZOOIMKMZZ 

mniKi>n 

SO  T9  90 

LIN'  t$  LOO#  CLOSXNS  CL  CHE  NT  ICC#.  TO  *9“>l  IOO  LOO#  CLOSING 

CLtNENTI 

GO  .1*0 

.CHINMLI 

00  «f  N*l,« 

IPIJ.CQ.M  GO  TO  91 
N1*IA00IN,J> 

TC IN) *10 BUS  I Nil 
60  TO  69 

61  ZCINMZBOIAIJ) 

69  CONTINUE 

ZL'.*70  OIA I J)  *Zt 

ELININATC  LOO#  AXIS  NT  KNON  9C0UCTI3NI 
00  IPIZIL.CQ.O)  GO  TO  099 
00  09  11*1,  < 

DO  06  JJ«1,< 

IPIII.CO.JJ)  GO  TO  OS 
IPIII.GT.JJ)  SO  TO  06 
Nl*t«00(It.JJ) 

ZOBUSINt)*ZON'JS  INl)-TS(II)  *TC(  JJ)  /ILL 
GO  TO  06 

63  ZOOI«III)*ZOOUIII)*Z:iII)*ZCIII)/ZLL 

06  CONTINUE 

09  CONTINUE 

NEOJCE  NUS  CONNECTION  COUNT  POT  BUSIES!  CLININOTE  #TN  ON  OTN  AXIS 
IP  tf.  CONNECTIONS  TO  THAT  B'JI  ACE  CON*LCTE  ANO  THE  BUS  IS  NOT  IN 
TNC  ATE*  OP  STUDY! 

•0  (PHI.  CO.  0)  GO  TO  99 
N1IL1)*NAIL1>-1 
I PIN*  I LI)  «NC.  0)  SO  TO  99 
00  9Z  N*  1. HNS 
IPINBI  N*N)  . EQ.L  1)  SO  TS  99 
9C  CONTINUE 

CALL  SMA#ZOIJCfK) 

(•(•l 

99  NAIL?>*NAILZ)-1 

(PIN* ILZ) .NE.O)  SO  TO  100 
00  96  N*1,N9S 

IPINBIN«N).EQ.LZ>  60  TO  100 

96  CONTINUE 
CLININOTE  OTN  AXIS! 

IPIK.LT.JO)  97,90 

97  JO* JC 

90  CALL  SNAPZOIJOfX) 

<*<•1 

IBB  CONTINUE 
9CTU9N 

096  49ITE (Z,* ) “BUS  LIST  POLLOHS* 

4NITEIC,*)  llUBPI J) , J«1,K) 

SO  T3  900 

099  KNIT! II, 1001)  Lt,L* 

SO  TO  910 

900  ONtTEItflOOO)  LINAIL) fLINBIL) 

SO  TO  910 
BBC  09ITE IZflBOZ) 

910  ICM«1E*N*1 
9CTUTN 
INO 


i suoroutxne  MiTcsrm.xx.zn  mm 

iNrcsm  si.st  mm 

:«Ke«  tcou*,zn,  n,  rc3J*,7Aji,7>oui,ioiA,rooi*,Esus,7c  03*730 

IONNON  /rCRO/ltlZf>.lO<ZN>.L«(?f>'Llltf>.ZN<Zf>'TCOUP|S,tlt  03*7*0 

• tt:9u*<tf>.tJKit3),<jt<**>.ir7<zt>,x3AvcM>.zot*<79>,zcoit(rsi , mm 

tzt  js  < trn > , x#  ms  « trr  * i , eous «?»»),  rz < 7*>  mm 

jonnon  /xconst/  nonu.nsS'Irsn.injT'Iduhn  os*rrt 

CONS  ON  /SMC  / !(«  03*7S1 

nw*«  os*tto 

it  >0  to  1*1  f NONU  HUH 

iriuiit.Nc.ni  so  to  t uutt 

XPtLNdl.CQ.lt>  SO  TO  11  03*0t0 

so  ts  t nun 

t IPU0dl.NC.Il>  SO  TO  t HUH 

tf  tPILIIXI.C9.lt>  SO  TO  11  HUH 

* tPtimi.NC.xii  so  to  i most 

fFiim>.CQ.it>  so  to  it  m$7« 

SO  T •?  to  HUM 

i tF«i*d>.Nc.ii>  so  to  is  huh 

to  xmmi.co.xt>  so  to  it  ts*too 

St  SONTINUC  HUlt 

3 LINE  SS'S  NOT  HOVE  NUTUALSt  RETURN  TO  SUSI  TJ  CONTINUE  PROCESSUS  03*9?0 

C LINE  I HUH 

RCTU»N  HUH 

tf  C LINE  OSES  NATC  NUTUALSt  TNC  OTNER  LINE  IS  OC'INEO  OT  10II>  AND  LSd>  103*0*0 

XI  ll«U(I(  HUM 

.t«LStI>  HU70 

SO  TO  tf  HtfM 

C LINE  SSES  NAVE  NUTUALSt  TNC  OTNER  LINE  XS  SCPXNCS  OT  LAID  ANO  LOd)  103*090 

M tt  L1>LA(XI  OlfOOf 

IKIIII  OlftlO 

C CNN  TS  SEE  IE  0T*CR  LINE  NAS  AlRCAOT  SEEN  A00E0  TO  STSTENI  OlfltA 

If  tPdNUT.CQ.*)  60  TS  to  OSftSO 

SO  IT  1*1 1 1 NUT  03f0*t 

*f  IPdJKftl.NE.Ll)  60  TO  10  OSftfO 

IFtK JI CXI .EO.Ltl  63  TO  tl  01*060 

SO  TS  If  OSfttt 

SO  IPtKJt  (XI.NC.L1I  60  TO  It  OSfOtt 

IFdJMII.EQ.LX)  69  TO  tl  OStOtt 

M IS  SONTINUC  03*100 

C TNIS  XS  TNC  FIRST  LINE  OP  TNC  SUTUALl?  COUPLED  SETT  AOO  LINE  TO  03*110 

C NUTJA.  TUIL0IN6  TAO.Ct  RETURN!  OSfltO 

tt  XNJT«INUT«1  039130 

I DUNN* I0UNN.1  03*1*0 

« ITttXNUTI-XOUm  OSfltO 

1J<IINUT>*X1  03*160 

KJtdNUTI.lt  OSfltO 

ZCSJMINUTWZ  OSfltO 

ttTJTN  OSfltO 

ft  C NEW  LINE  IS  COUPLCO  TO  LINE  ALREAQT  XN  STSTCNI  ASO  NCN  LINE  TO  039Z0* 

3 NUTJA.  T'JXL0IN6  TAt.CI  PORN  NOT JAl  30UHXNS  NATRIK  POR  TNIS  OJftlt 

e COUPLES  SET I OSfttl 

tl  XNJT«tNUT»l  OSftSO 

IST«INUT«1  OSftAO 

9*  ITfdHUT»lTZII>  OSftSO 

tJKIXNUTI  *1 1 Off  MO 

KJIdNUD.lt  OJftTO 
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tesuntNumzz  asaaaa 

e tnc  rslioninc  section  sonstruits  »■»»  njtu»l  ssur.ins  mrui  to  at  tsazat 
e usn  it  the  ausa  sjxuinc  iiSDRirm  roi  lines  nxtm  nutu*lsi  asasss 

ii*r<*i  aaaata 

so  a«  t«i»rsT  ssasta 

trii.co.isn  co  to  sa  asassa 

jj*i»t-i  a»»a 

trttrztJji.NC.iTztiNuTit  so  to  aa  asssat 

tuoiMiin  asasae 

tstvitnoNiuj  a Jim 

reou*<  iron,  iron*  *z:our(jj)  asano 

truj.CQ.tNun  so  to  aa  asssaa 

*t«ti  wscaa 

»>u  stasia 

iMt  amn 

» oo  a a j-itN9Nj  amu 

irtLaut.NE.su  co  to  »a  a«wa 

traaui.iE.s?)  69  to  it  asaaaa 

trtiQut.NC.tJ<iJjn  sa  to  as  asawa 

trust  ji.eo.kjiujm  ss  to  aa  assart 

co  to  aa  asaaaa 

n trtL0ui.NC.su  go  to  sa  asaaaa 

traat Ji.tt.szi  69  to  is  assaaa 

irtiftui.NE.tJKUjn  so  T9  is  asaaia 

trtLSUl.CO.  KJIUJIt  59  TO  SS  SISSZI 

so  to  aa  asaasa 

trtLQUI.NC.su  60  T9  SI  019041 

trtLSUt.NC.S7)  60  TO  10  039000 

irtL»tjt.NC.tJ<tjji)  59  to  .a  asaasa 

irtLau).CQ.NJtujtt  59  to  aa  asaara 

so  to  aa  asaaaa 

sa  trastJt.NC.su  eo  to  aa  asaaaa 

irtLQUt.NC.SZt  69  T9  SI  ISOSOI 

triLaut.NC.tJ<tJJti  so  to  to  asasta 

trtLaiJI.CQ.NJI  UJI I 59  T9  10  019671 

so  to  aa  asaasa 

aa  trtLSut.Nc.ijNtjjti  ss  to  so  asaasa 

trtLQUt.cQ.Njxujit  so  to  aa  asaaaa 

so  to  as  asaaaa 

aa  trtLOUi.NC.  iJKtjjtt  ss  to  aa  asaara 

trtL*tJi.ca.NJttJjit  59  n aa  asaaaa 

aa  continue  asaaaa 

TOS'J*  I JN,  IRONUSNr'.N  f S.  .0.  t SOOTIS 

feou*ttooN.  jKucNrLxts.  .a. i asano 

to  to  sa  ssarza 

as  T60U*t JR. IR0NI*V50 JR t IRON. JNI ■ZNIJI  ssBrsa 

aa  jr*  j<*  t asano 

trtjN.eo.noNi  69  to  aa  asaraa 

si*tJNttsa«CURtt  asaraa 

9>*RJXtxsavctjRit  asarra 

to  T9  ?*  asaraa 

as  sonttnuc  asaraa 

e NUTJIl  INREOONCC  SOJRlINC  N4TQ1X  tt  COT* LET El  COLL  SUBROUTINE  SSfSSO 

e to  invert  iNRcoatec  csjrling  hi  rats  to  corn  ionittoncc  courlinc  asaaia 

e NRTatn  asaasa 

nn*7*  soon  asaasa 

SSLL  CrLXXNVtTB9UR.tR0N.NNt  tssaao 

«NW  asaaaa 

asaaaa 
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SUMJUTINE  C7(.XI<t*(»,*,**» 

5007'.EX  *(*,NN>,*1 

IMKM.M 

JO  S t«l«N 

JO  T MiN 

tPd.CO.JI  60  TO  2 

UliJtNMCNn.111,,1.) 

so  rj  s 

» t(X,J»N)«CX7LX(l.,0.> 

I SONTINUC 
JO  M !H1,X 
1**1* 

t7(t».EQ.N*  60  TJ  11 

oo  io  x*mtN 
xriti.ec.xxi  so  to  io 

IN*t 

SONTINUC 

tiotosudH.ioti 
trm.GE.e*sin  so  to  is 

MOITEd.lOOO)  *(I*,X7t 
706N1T  (1X,**7XV0T  LflEIT.  lt/l 

21aC*0S(*(IX,t»>> 
irin.EO.t.i  so  to  ro 
i ir<xN.ca.x»i  so  to  to 

00  to  J>I*|1X 
U<tlIO,JI 
«IXO|JI>MXX,jl 
«(IN,J)a*. 

*L«I(X7,X7) 

MtM*)>exfiniMM 
oo  to  j>nT,m 
IIIO.jIMIISil  /OL 
00  60  t-1,0 
17(1.(0.17)  60  TO  60 

ii'Miitn 

00  10  Jat7,NN 

SONTINUC 
SONTINUC 
JO  00  X«ltN 
00  00  J-l.N 
t(t,.»a*(I,  J»M 
OITOON 
INJ 


OJOOTO 

osoooo 

OIOOOO 

030000 

OJOOIO 

030010 

OJOOIO 

010060 

osoooo 

OIOOOO 

010070 

OIOOOO 

osoooo 

OIOOOO 
010010 
030070 
030  0 30 
030060 
030000 
030000 
030070 
OIOOOO 

osoooo 

010100 

030110 

osoito 

030130 

030160 

030100 

030100 

030170 

030100 

030100 

036200 

030710 

030770 

030730 

030260 

030200 

030200 

030270 

030200 

030700 

030300 

030310 

030320 

030330 


SUO'JUTINC  SN*7Z(X*,X> 
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